(= m[if(atom _)`(,_)_]f[if cdr._(f:if(is"."_.0)(+(m:_ 1)`((,@(m:_ 2),_.3))(cut _ 4))`((,_.0,(f:m:_ 1)),@cddr._))_.0])(while:prn:f:tokens:readline)