map{$i=y/f/#/;print'.'x$d,'#',$_,$/;$d+=$i}split d,substr<>,1