interp :: Text -> IO ()
interp input = do
  result <- readAllFromProcess "node" [] input
  case result of
    Left err -> error (T.unpack err)
    Right (stderr,stdout) -> do T.putStrLn stderr
                                T.putStrLn stdout
interp :: Text -> IO ()
interp input = do
  result <- readAllFromProcess "node" [] input
  case result of
    Left err -> error (T.unpack err)
    Right (stderr,stdout) -> do T.putStrLn stderr
                                T.putStrLn stdout
interp input = do
  result <- readAllFromProcess "node" [] input
  case result of
    Left err -> error (T.unpack err)
    Right (stderr,stdout) -> do T.putStrLn stderr
                                T.putStrLn stdout