@_=122;print,@_<$$&&push@_,($^=3)x($_%3)for@_