n:=File standardInput readLine asNumber for(i,-n**.5/.7|0,-1,j:=i;s:="";loop(m:=j*(j=j-1)/2+i;m