diff --git a/Main.hs b/Main.hs
index 63b1615..0fba1ea 100644
--- a/Main.hs
+++ b/Main.hs
@@ -3,5 +3,13 @@
 
 module Main (main) where
 
+import Graphics.Gloss
+
+window :: Display
+window = InWindow "Foo" (200, 200) (100, 100)
+
+frame :: Float -> Picture
+frame t = rotate (100 * t) $ rectangleSolid 80 80
+
 main :: IO ()
-main = putStrLn "Hello, Haskell!"
+main = animate window white frame