Edinburgh IMP77 Compiler - Version 8.4

    1  %begin
    2    %routine do something(%integer i)
    3       %integerfn succ(%integer i)
    4         %result = i+1
    5       %end
    6       print string("succ("); write (i,0); print string(") = "); write(succ(i), 0); newline
    7    %end
    8  
    9    do something(42)
   10  
   11  %endofprogram

   13 Statements compiled