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