sub r {my$s;$s.=chop for@_=@_;$s.0?(&r,$s):()}