m:-readln([N]),format("~2r",N).