trominoTilingLinks :: Links
trominoTilingLinks = (items, [], options)
  where
    items     = monomino ++ squares
    monomino  = [ it "m" ]
    squares   = [ it $ show r ++ show c | r <- [0..7],
                                          c <- [0..7] ]


    -- m 00
    -- m 01
    -- ..
    -- 00 01 02
    -- 00 10 20
    options    = monominoes ++ trominoes