procedure Gnat.Spitbol.Patterns.U is A:String:=Get_Line;begin
Put(S(A(1..(99-A'Last)/89*10)&A'Last mod 5/3*27*'x'&A'Last/30*60*':'));End;