#!perl
s//-
/;eval's/./$& $&/g;'x pop;print

#!perl -l
print map{/1/?$":'-'if!y/012//c}0..2x pop