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