m:-skip(10),a. a:-readln([N]),N>0,K=round(N^0.5),format("~d ",K*11+K mod 10),a.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page