m:-prompt1(''),get0(C),(C<0;C=10,put(C),m;put(48),m).