m:-readln([N]),N/X,(N/Y,(X*X+Y*Y>N*N->put(32);put(42));nl),1<0. N/X:-M is -N,between(M,N,X).

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page