'BEGIN''INTEGER'I; 'INTEGER''PROCEDURE' TCODE(S); 'STRING' S; TCODE:=CODE(S); PRINT(TCODE({A}),3,3) 'END'