         Edinburgh IMP77 Compiler - Version 8.4

    1  %begin
    2    %owninteger result, a=1,b=1,c=1,d=1,e=1,f=1,g=1,h=1,i=1,j=1,k=1,l=1,m=1,n=1,o=1,p=1,q=1,r=1,s=1,t=1,u=1,v=1,w=1,x=1,y=1,z=1
    3    a = 2
    4    ! exponents of 1 or 0 are OK:
    5    %for b = 4, -1, 0 %cycle
    6      result = a ^^ b
    7      print string("2^^"); write(b, -1)
    8      print string(" = "); write(result, -1); newline
    9    %repeat
   10    ! so this error report of an illegal exponent of 1 may be mis-reported?
   11    a = 1; b = 1
   12    result = a << b << c << (a !! b) + e - f ^^ (a + b - c << d - e) ^^ h << i; print string("result = "); write(result, -1); newline
   13  %endofprogram
?Z unused
?Y unused
?X unused
?W unused
?V unused
?U unused
?T unused
?S unused
?R unused
?Q unused
?P unused
?O unused
?N unused
?M unused
?L unused
?K unused
?J unused
?G unused

   18 Statements compiled
