Evaluated proc n str {split [. $str] \n]}