1 f1
   1 f2
   1 f3
   1 f4
ilib/

 main
line 
2 := 
 coll
e(x)
e(dec
e(dec


link "../i

procedure 
   while l
     line2
     x := 
     write
     write
     write
     }
end
link "../i

procedure 
   while l
     line2
     x := 
     write
     write
     write
     }
end