input""n:for i=-int(n^.5/.7)to-1j=i 1m=j*(j-1)/2+i:if m<n?m+1;:j=j-1:goto 1 ?next

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

download

return to the top page