tap2Table :: Array Int Tap2
tap2Table =
  array (2, 768)
  . map tapPair
  $ [ (7,  (7, 6))
    , (15, (15, 14))
    , (31, (31, 28))
    , (63, (63, 62))
    ]
tap2Table :: Array Int Tap2
tap2Table =
  array (2, 768)
  . map tapPair
  $ [ (7,  (7, 6))
    , (15, (15, 14))
    , (31, (31, 28))
    , (63, (63, 62))
    ]
tap2Table =
  array (2, 768)
  . map tapPair
  $ [ (7,  (7, 6))
    , (15, (15, 14))
    , (31, (31, 28))
    , (63, (63, 62))
    ]