diff --git a/.Main.hs.swp b/.Main.hs.swp
index e48527e..417fb67 100644
Binary files a/.Main.hs.swp and b/.Main.hs.swp differ
diff --git a/Main b/Main
new file mode 100755
index 0000000..d832512
Binary files /dev/null and b/Main differ
diff --git a/Main.hi b/Main.hi
new file mode 100644
index 0000000..cc6f8f0
Binary files /dev/null and b/Main.hi differ
diff --git a/Main.hs b/Main.hs
index 9acb757..e775599 100644
--- a/Main.hs
+++ b/Main.hs
@@ -1,8 +1,10 @@
-module Main2 where
+module Main where
 
 import System.Random
 import Data.List
 import Data.Maybe
+import Data.Time.Clock
+import Data.Time.Calendar
 import Packs
 
 data Timestamp = Ts Integer Integer Integer
@@ -133,8 +135,8 @@ printLegal (l, p, b, r) = [
    , "Datapacks: " ++ (intercalate ", " $ sort $ map (\(Dp n _) -> n) l)
    ]
 
-printPreview :: Preview -> [String]
-printPreview (i, o, (Bb bi), (Bb bo)) = [
+printPreview :: Maybe Preview -> [String]
+printPreview (Just (i, o, (Bb bi), (Bb bo))) = [
      ("In : " ++ (intercalate ", " $ (cleanDP i) ++ cbi))
    , ("Out: " ++ (intercalate ", " $ (cleanDP o) ++ cbo))
    ]      
@@ -143,3 +145,15 @@ printPreview (i, o, (Bb bi), (Bb bo)) = [
       cbi = catMaybes [bi]
       cbo = catMaybes [bo]
       cleanDP = map (\(Dp n _) -> n)
+printPreview Nothing = []
+
+toTS :: (Integer, Int, Int) -> Timestamp
+toTS (y,m,d) = Ts (fromIntegral d) (fromIntegral m) y
+
+main :: IO ()
+main = do
+   t <- getCurrentTime >>= return . toGregorian . utctDay
+   let ts = toTS t
+   let state = getCurrentRotation ts
+   let out = (printLegal state) ++ [""] ++ (printPreview $ getPreview ts state)
+   mapM_ putStrLn $ out
diff --git a/Main.o b/Main.o
new file mode 100644
index 0000000..95eccfc
Binary files /dev/null and b/Main.o differ
diff --git a/Packs.hi b/Packs.hi
new file mode 100644
index 0000000..3ebae5d
Binary files /dev/null and b/Packs.hi differ
diff --git a/Packs.o b/Packs.o
new file mode 100644
index 0000000..31f559c
Binary files /dev/null and b/Packs.o differ
diff --git a/Test.hs b/Test.hs
deleted file mode 100644
index a7071e3..0000000
--- a/Test.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-cleanMaybe :: Maybe String -> [String]
-cleanMaybe (Just x) = [x]
-cleanMaybe Nothing = []
-