print'-'x17,@t=($/,($")x17)x15,$/,map{$t[$_+ord$']='*'for//,18..20,37}map/\D/g,qw(1 Úæ ,JV’ž¼ JVt’ž >nzª >nz nz t  tà à t)[-$_,$_>3]for<>,0