procedure main()
   write(image(&main))
   e := create foo
   write(image(foo))
   f(&main,&source,e)
end

procedure f(x,y,z)
   display()
end