Edinburgh IMP77 Compiler - Version 8.4
    1 %begin
    2   %routine do(%name x)
    3     %name q
    4     q == x
    5   %end
    6
    7   %name y
    8
    9   %real r
   10   %integer i
   11
   12   y == r
   13   y == i
   14
   15   do(r)
   16   do(i)
   17   do(y)
   18
   19 %endofprogram
   14 Statements compiled