#!/usr/bin/perl
$.=shift;chop($:=".,"x$_),print!$_?" "x$.."*":$_==$.?"^"x~-$_.q{[_]}."^"x~-$_:" "x($.-$_)."/$:\\","\n"for+!!""..$.
