Evaluated set x 1; join [map [split [random_songs malcolm 1] \n] {{word} {. [uplevel [string repeat " " [expr int(10 + 10 * sin(3.14 * 3 * $::x/20))]] $word; incr ::x]}}] \n