character(1)::a,b read *,a,b print *,b,' ',a end