for(<>=~/./g){$a-=$b,print chr$b+44while$b=$a<=>ord;print'.'}