begin

routine p1(integer a,b,c)
end

integerfn p2(real p,q)
  if p/q < 1 then result = 1
  result = 0
end

! Test nested ASSPAR parameter ICodes.

p1(22,p2(3.0,0.14),44)

endofprogram