character::s
  read *,s
  print '(i0)', 500
end program