#!perl
s/$/$"$`/for($\="-
",$")x pop;print