Underload interpreter by D

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;

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page