1:49 >perl -wE"$%%$_||say for 1..($%=pop)" 36 1 2 3 4 6 9 12 18 36 1:49 >