print,$_.=$"x s/.\K..//g.$`x/$/for('-'x81,$/)x5