#!perl -l
@/='-';@/=map{$_,$",$_}@/for 1..pop;print@/