print$"x abs,'**'x($a-abs).'*
'for-($a=<>-1)..$a