nptools-0.1: extract-non-ascii.hs

import Data.Char
import Data.List
import Control.Applicative
import System.Environment
import Control.Monad

analyseLine :: String -> [String]
analyseLine = map pure . filter (not . isAscii)

main :: IO ()
main = do args <- getArgs
          when (not . null $ args) $ putStrLn "Reading from stdin"
          putStrLn =<< unlines . concatMap analyseLine . lines <$> getContents