m:-readln([A]),format("~16R
",A),m.