! an external section is allowed before a main program in Imp77y
owninteger fred = 1

begin
  write(fred, 1)
endofprogram