procedure Gnat.Spitbol.Patterns.M is use Ascii;S:String:=Get_Line;begin
if S'Last=16 then Put("24");elsif S'Last=17 then Put("3");else Put("5"&Lf&"8"&Lf&"58");end if;end;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).