begin
integer
x = 0
routine
inner x = 5
end
inner write(x,0); newline
end
of
program