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