diff --git a/exec/Main.hs b/exec/Main.hs
index 36a3699..808bdd6 100644
--- a/exec/Main.hs
+++ b/exec/Main.hs
@@ -1,5 +1,12 @@
+{-# LANGUAGE OverloadedStrings #-}
 module Main where
 
+import qualified Data.ByteString.Lazy as LBS
+
+import qualified Language.Wasm.Lexer as Lexer
+import qualified Language.Wasm.Parser as Parser
+import qualified Language.Wasm.Binary as Binary
+
 data OutputMode = WasmBinary | JSWrapper deriving (Show, Eq)
 
 data WasmConfig = WasmConfig {
@@ -8,6 +15,15 @@ data WasmConfig = WasmConfig {
     outputMode :: OutputMode
 } deriving (Show, Eq)
 
+compile :: String -> String -> IO ()
+compile input output = do
+  content <- LBS.readFile input
+  case Lexer.scanner content >>= Parser.parseModule of
+    Right mod ->
+      LBS.writeFile output $ Binary.dumpModuleLazy mod
+    Left reason ->
+      putStrLn $ "Cannot complie module: " ++ reason
+
 main :: IO ()
 main = do
     putStrLn "There is no WASM!"
diff --git a/wasm.cabal b/wasm.cabal
index e35ff41..43ef94d 100644
--- a/wasm.cabal
+++ b/wasm.cabal
@@ -57,6 +57,7 @@ executable wasm
       base >=4.6 && <5.0
     , wasm ==0.1.0
     , optparse-applicative >= 0.13
+    , bytestring >=0.10 && <0.11
 
 test-suite test
   type: exitcode-stdio-1.0