begin

routine fred(integer i, routine jim(integer k))
  jim(i)
end

endofprogram