{{N 10}} {set garbage [list]; for {set i 0} {$i < $N} {incr i} {if [expr $i % 2] {lappend garbage [. Week $i: [lindex_random $::hard_book]]} {lappend garbage [. Week $i: [lindex_random $::easy_book]]}}; . $garbage}
