#!perl -p0
s/\s//g;1while$a.=".",s/$a\K/
/