program main implicit none character::p,q read *,p,q print '(a," ",a)',q,p end program main