m:-prompt1(''),readln([A,B]),(A<0;format("~*r ",[B,A]),m).