tableHeader :: BH.Html
tableHeader = BH.tr $ BH.th "String 1" >> 
                      BH.th "String 2" >> 
                      BH.th "Number"
tableHeader :: BH.Html
tableHeader = BH.tr $ BH.th "String 1" >> 
                      BH.th "String 2" >> 
                      BH.th "Number"
tableHeader = BH.tr $ BH.th "String 1" >> 
                      BH.th "String 2" >> 
                      BH.th "Number"