hlIf :: ShowS -> ShowS -> ShowS -> ShowS
    hlIf cond then_ else_ = showString "if(" . cond . showChar ',' . then_ . showChar ',' . else_ . showChar ')'
hlIf :: ShowS -> ShowS -> ShowS -> ShowS
hlIf cond then_ else_ = showString "if(" . cond . showChar ',' . then_ . showChar ',' . else_ . showChar ')'
hlIf cond then_ else_ = showString "if(" . cond . showChar ',' . then_ . showChar ',' . else_ . showChar ')'