diff --git a/appHetris/Hetris.hs b/appHetris/Hetris.hs
new file mode 100644
index 000000000..7bf1ed816
--- /dev/null
+++ b/appHetris/Hetris.hs
@@ -0,0 +1,21 @@
+module Main where
+import Loop
+import Hetris.Base
+
+import Control.Lens
+--import Foreign (Word32)
+import Control.Monad
+--import System.Random
+import qualified Data.Map                  as M
+import qualified Data.IntMap               as IM
+import Graphics.Rendering.OpenGL hiding (color, rotate, scale, translate)
+import qualified SDL
+import qualified SDL.Mixer                 as Mix
+
+main :: IO ()
+main = setupMiniLoop
+    (600,600)
+    initWorld
+    (const $ return ())
+    (\w _ -> return w)
+    return