Evaluated join [map [explode bcde] {x {pnoun $x; wnoun $x; . $x: added [llength $::temp]\n}}] /n