<>;map{$%=$_;$_{$_}+=$%for split$",<>}1,-1;$_{$_}and print for keys%_