routine real printsymbol(integer ch)
  printsymbol(ch)
end

externalroutine printsymbol(integer ch)
  real printsymbol(ch-32)
end

begin
  print symbol('@')
endofprogram