diff --git a/index.html b/index.html
new file mode 100644
index 000000000..2736b8441
--- /dev/null
+++ b/index.html
@@ -0,0 +1,22 @@
+<html>
+
+<head>
+	<meta charset="UTF-8">
+	<title>Main</title>
+	<script src="index.js"></script>
+</head>
+
+<body>
+	<script>
+		const app = Elm.Main.init({});
+		app.ports.sendHPutStr.subscribe(function (args) {
+			console.log(args);
+			app.ports.recvHPutStr.send(null);
+		})
+		app.ports.sendGetLine.subscribe(function () {
+			app.ports.recvGetLine.send("some string...");
+		})
+	</script>
+</body>
+
+</html>
\ No newline at end of file
diff --git a/src/Main.elm b/src/Main.elm
new file mode 100644
index 000000000..47b3d3846
--- /dev/null
+++ b/src/Main.elm
@@ -0,0 +1,18 @@
+module Main exposing (main)
+
+import System.IO as IO exposing (IO)
+
+
+main : IO.Program
+main =
+    IO.run app
+
+
+app : IO ()
+app =
+    IO.pure 1
+        |> IO.fmap ((+) 2)
+        |> IO.fmap String.fromInt
+        |> IO.bind (IO.hPutStr IO.stdout)
+        |> IO.bind (\() -> IO.getLine)
+        |> IO.bind (\name -> IO.hPutStr IO.stdout ("Hello " ++ name))
