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