#!perl
s//-
/;while($ARGV[0]--){s/ /   /g;s/-/- -/g}print