character ::a,b
      read *,a,b
      print *,b,' ',a
end