tapPair :: (Int, (Int, Int)) -> (Int, Tap2)
tapPair (i, bs) =  (i, Tap2 { width = i, bits = bs })
tapPair :: (Int, (Int, Int)) -> (Int, Tap2)
tapPair (i, bs) =  (i, Tap2 { width = i, bits = bs })
tapPair (i, bs) =  (i, Tap2 { width = i, bits = bs })