interactive :: (String -> [String]) -> IO ()
interactive ana = getLine >>= \ x -> printResult x (ana x)
interactive :: (String -> [String]) -> IO ()
interactive ana = getLine >>= \ x -> printResult x (ana x)
interactive ana = getLine >>= \ x -> printResult x (ana x)