$_-=88,print"|@{[88..108]}|
|",/-/^$_<20?$"x($_*3+.5^/19./).$"x($_-11).'*'|$"x71:'x'x71,'|

'for<>