for$i(<>){$s='/'.'--'x--$i."\\ ";$s.=$"x$_.'\\'.' 'x($i-$_)."/ "for 1..$i;print$i?$s:"◇ "}