m:-get0(X),X>0,to_upper(X,Y),put(Y),m.