#!/usr/athena/bin/perl
$a="44"; while(1) {%c=(); foreach $b (split(//,$a)) {$c{$b}++;} $a=join("",%c); $q=join(" ",reverse %c); print "$q\n";}