         Edinburgh IMP77 Compiler - Version 8.4

    1  ! trivial example to show the problem
    2  
    3  %externalroutine my write(%integer n, p)
    4    ! first capture the perms version
    5    write(n, p)
    6  %end
    7  
    8  %externalroutine write(%integer n, p)
    9    print string("Result is ")
   10    my write(n, p)
   11    newline
   12  %end
   13  
   14  %begin
   15    write(123, 0)
   16  %endofprogram

   11 Statements compiled
