         Edinburgh IMP77 Compiler - Version 8.4

    1  %begin
    2    %routine do(%integerfn fn(%integer p,q,r))
    3      %integer i
    4      i = fn(1,2,3)
    5    %end
    6  
    7    %integerfn average(%integer a,b,c)
    8      %result = (a+b+c)//3
    9    %end
   10  
   11    do(average)
   12  %endofprogram

   10 Statements compiled
