print"381654729
"

##</code><code>##

die"381654729
"

##</code><code>##

sub t{@_||print"$n
";for(1..@_){$n.=shift;$n%(9-@_)||&t;push@_,chop$n}}t(1..9)