interactL :: (String -> String) -> IO ()

interactL f =
    do hSetBuffering stdout LineBuffering
       interact f

{- "bare" interactions -}
interactL :: (String -> String) -> IO ()
interactL f =
    do hSetBuffering stdout LineBuffering
       interact f

{- "bare" interactions -}
interactL f =
    do hSetBuffering stdout LineBuffering
       interact f

{- "bare" interactions -}