$.++;$.+=$l,$l=$.-$l,print"$. "for 1..23