perl -E 'say+map{(Fizz)[$_%3].(Buzz)[$_%5]||$_,$/}1..30' | cat -n