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