hlInfixOp :: String -> ShowS -> ShowS -> ShowS
    hlInfixOp op l r = showParen True $ l . space . showString op . space . r
hlInfixOp :: String -> ShowS -> ShowS -> ShowS
hlInfixOp op l r = showParen True $ l . space . showString op . space . r
hlInfixOp op l r = showParen True $ l . space . showString op . space . r