$_=122;for$n(2..6666){/.{$n}(.)/,$_.=($n++%2+1)x$1}print