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