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;