#!perl -l
s//-/;eval's//$_$"/;$"x=3;'x pop;print

#!perl
$,.=($,&$"x6**6).$,||'-'for(0..pop);print$,.$/