@A=split'9','14433431319413131213121319413524359013131312161319134131216131';
foreach(@A){while($_){s|^(\d)(\d)||;print' 'x$1,'*'x$2;}print"\n";}