m:-prompt1(''),between(1,12,I),readln(X),last(X,A),\+format("~3f
",2*pi*A).