begin
routine do(integername pointer)
end
integername ptr
do(ptr)
endofprogram