{{ll 10}} {each [zip [.. $ll] [lrange [zip [shuffle $::easy_book] [shuffle $::hard_book]] 0 $ll-1]] {{i _} {list [list "Week [format "%02d" $i]" "$_" "[expr "1 + [rand 5]"]hr@[format "%04d" [rand 2000]] WPM"]}}}