s/\*/$a[$<-$*atan2$y=16-$.,-($x=-15+pos)].="($x, $y)
"/gewhile<>;print@a