/0/||/\B.\B/.0>$&+$'*$`&&print map($&+$'*$_,0..$`),$/for 1..999