m:-readln([A,B]),format("~*r
",[B,A]),m.