{-# LANGUAGE Arrows #-}
module Bar where

import Control.Arrow
import Data.Text as Text

replace :: Text -> Text
replace = Text.map (\c -> if c == '_' then '.'; else c)

replace1 :: Text -> Text
replace1 = Text.map (\c -> if c == '_' ; then '.' else c)

replace2 :: Text -> Text
replace2 = Text.map (\c -> if c == '_'; then '.'; else c)

replace4 :: Text -> Text
replace4 = Text.map (\c -> if c == '_' then '.' else c)

addA f g = proc x -> if x == 0 ; then returnA -< x
                               ; else returnA -< x