==================== CorePrep ====================
Main.lvl :: GHC.Base.Int
[GlobalId]
NoCafRefs Str: DmdType m
Main.lvl = GHC.Base.I# 100

Main.lvl1 :: GHC.Base.Int
[GlobalId]
NoCafRefs
Main.lvl1 = GHC.Base.I# 8

Main.lvl2 :: GHC.Base.Int
[GlobalId]
NoCafRefs
Main.lvl2 = GHC.Base.I# 256

Main.lvl3 :: GHC.IOBase.IO Graphics.UI.Gtk.Types.Pixbuf
[GlobalId]
Str: DmdType
Main.lvl3 = Graphics.UI.Gtk.Gdk.Pixbuf.pixbufNew
	      Graphics.UI.Gtk.Gdk.Pixbuf.ColorspaceRgb
	      GHC.Base.False
	      Main.lvl1
	      Main.lvl2
	      Main.lvl2

lvl4 :: [GHC.Base.Int]
[GlobalId]
Str: DmdType
lvl4 = GHC.Enum.eftInt 0 127

z :: GHC.IOBase.IO ()
[GlobalId]
Arity 1 NoCafRefs Str: DmdType L
z = \ s :: GHC.Prim.State# GHC.Prim.RealWorld ->
      (# s, GHC.Base.() #)

Main.pixbufSetGreen :: Graphics.UI.Gtk.Types.Pixbuf
		       -> GHC.IOBase.IO ()
[GlobalId]
Arity 2 Str: DmdType
Main.pixbufSetGreen = \ pixbuf :: Graphics.UI.Gtk.Types.Pixbuf
			eta :: GHC.Prim.State# GHC.Prim.RealWorld ->
			case Graphics.UI.Gtk.Gdk.Pixbuf.pixbufGetPixels pixbuf eta
			of wild { (# new_s, a41 #) ->
			__letrec {
			  go :: [GHC.Base.Int] -> GHC.IOBase.IO ()
			  Arity 1 Str: DmdType S
			  go = \ ds :: [GHC.Base.Int] ->
				 case ds of wild1 {
				   GHC.Base.: y ys ->
				     let {
				       lvl5 :: GHC.Base.Int
				       Str: DmdType
				       lvl5 = case y of wild2 { GHC.Base.I# x ->
					      case GHC.Prim.*# x 384 of sat_s6Mx { __DEFAULT ->
					      GHC.Base.I# sat_s6Mx
					      }
					      } } in
				     let {
				       lvl6 :: GHC.Base.Int
				       Str: DmdType
				       lvl6 = case y of wild2 { GHC.Base.I# x ->
					      case GHC.Prim.*# x 384 of sat_s6MG { __DEFAULT ->
					      GHC.Base.I# sat_s6MG
					      }
					      } } in
				     let {
				       lvl7 :: GHC.Base.Int
				       Str: DmdType
				       lvl7 = case y of wild2 { GHC.Base.I# x ->
					      case GHC.Prim.*# x 384 of sat_s6MP { __DEFAULT ->
					      GHC.Base.I# sat_s6MP
					      }
					      } } in
				     let {
				       ds1 :: GHC.IOBase.IO ()
				       Str: DmdType
				       ds1 = go ys } in
				     __letrec {
				       go1 :: [GHC.Base.Int] -> GHC.IOBase.IO ()
				       Arity 1 Str: DmdType S
				       go1 = \ ds2 :: [GHC.Base.Int] ->
					       case ds2 of wild2 {
						 GHC.Base.: y1 ys1 ->
						   let {
						     ds3 :: GHC.IOBase.IO ()
						     Str: DmdType
						     ds3 = go1 ys1 } in
						   let {
						     sat_s6Pd :: GHC.Prim.State# GHC.Prim.RealWorld
								 -> (# GHC.Prim.State#
									   GHC.Prim.RealWorld,
								       () #)
						     sat_s6Pd = \ eta1 :: GHC.Prim.State#
									      GHC.Prim.RealWorld ->
								  case y1
								  of wild11 { GHC.Base.I# y2 ->
								  case lvl5
								  of wild3 { GHC.Base.I# x ->
								  case a41
								  of wild4 { GHC.Ptr.Ptr addr ->
								  case GHC.Prim.*# 3 y2
								  of sat_s6Nn { __DEFAULT ->
								  case GHC.Prim.+# x sat_s6Nn
								  of sat_s6Nq { __DEFAULT ->
								  case GHC.Prim.plusAddr#
									 addr sat_s6Nq
								  of sat_s6Nt { __DEFAULT ->
								  case GHC.Prim.writeWord8OffAddr#
									 @ GHC.Prim.RealWorld
									 sat_s6Nt
									 0
									 __word 0
									 eta1
								  of s2 { __DEFAULT ->
								  case lvl6
								  of wild5 { GHC.Base.I# x1 ->
								  case GHC.Prim.*# 3 y2
								  of sat_s6NC { __DEFAULT ->
								  case GHC.Prim.+# x1 sat_s6NC
								  of sat_s6NF { __DEFAULT ->
								  case GHC.Prim.+# sat_s6NF 1
								  of sat_s6NI { __DEFAULT ->
								  case GHC.Prim.plusAddr#
									 addr sat_s6NI
								  of sat_s6NL { __DEFAULT ->
								  case GHC.Prim.writeWord8OffAddr#
									 @ GHC.Prim.RealWorld
									 sat_s6NL
									 0
									 __word 128
									 s2
								  of s21 { __DEFAULT ->
								  case lvl7
								  of wild6 { GHC.Base.I# x2 ->
								  case GHC.Prim.*# 3 y2
								  of sat_s6NU { __DEFAULT ->
								  case GHC.Prim.+# x2 sat_s6NU
								  of sat_s6NX { __DEFAULT ->
								  case GHC.Prim.+# sat_s6NX 2
								  of sat_s6O0 { __DEFAULT ->
								  case GHC.Prim.plusAddr#
									 addr sat_s6O0
								  of sat_s6O3 { __DEFAULT ->
								  case GHC.Prim.writeWord8OffAddr#
									 @ GHC.Prim.RealWorld
									 sat_s6O3
									 0
									 __word 96
									 s21
								  of s22 { __DEFAULT ->
								  ds3 s22
								  }
								  }
								  }
								  }
								  }
								  }
								  }
								  }
								  }
								  }
								  }
								  }
								  }
								  }
								  }
								  }
								  }
								  }
								  }
						   } in  sat_s6Pd;
						 GHC.Base.[] -> ds1
					       };
				     } in  go1 lvl4;
				   GHC.Base.[] -> z
				 };
			} in  go lvl4 new_s
			}

Main.widgetShowAll :: Graphics.UI.Gtk.Types.Window
		      -> GHC.IOBase.IO ()
[GlobalId]
Str: DmdType
Main.widgetShowAll = Graphics.UI.Gtk.Abstract.Widget.widgetShowAll
		       @ Graphics.UI.Gtk.Types.Window
		       Graphics.UI.Gtk.Types.$fContainerClassWindow

Main.containerAdd :: Graphics.UI.Gtk.Types.Window
		     -> Graphics.UI.Gtk.Types.Image -> GHC.IOBase.IO ()
[GlobalId]
Str: DmdType
Main.containerAdd = Graphics.UI.Gtk.Abstract.Container.containerAdd
		      @ Graphics.UI.Gtk.Types.Window
		      @ Graphics.UI.Gtk.Types.Image
		      Graphics.UI.Gtk.Types.$fContainerClassWindow
		      Graphics.UI.Gtk.Types.$fWidgetClassImage

Main.widgetQueueDraw :: Graphics.UI.Gtk.Types.Image
			-> GHC.IOBase.IO ()
[GlobalId]
Str: DmdType
Main.widgetQueueDraw = Graphics.UI.Gtk.Abstract.Widget.widgetQueueDraw
			 @ Graphics.UI.Gtk.Types.Image
			 Graphics.UI.Gtk.Types.$fWidgetClassImage

Main.onDestroy :: Graphics.UI.Gtk.Types.Window
		  -> GHC.IOBase.IO ()
		     -> GHC.IOBase.IO
			    (Graphics.UI.Gtk.Signals.ConnectId Graphics.UI.Gtk.Types.Window)
[GlobalId]
Str: DmdType
Main.onDestroy = Graphics.UI.Gtk.Abstract.Widget.onDestroy
		   @ Graphics.UI.Gtk.Types.Window
		   Graphics.UI.Gtk.Types.$fContainerClassWindow

Main.lvl5 :: GHC.Prim.State# GHC.Prim.RealWorld
	     -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #)
[GlobalId]
Arity 1
Main.lvl5 = \ s :: GHC.Prim.State# GHC.Prim.RealWorld ->
	      case Graphics.UI.Gtk.Windows.Window.windowNew s
	      of wild { (# new_s, a41 #) ->
	      case Main.onDestroy
		     a41 Graphics.UI.Gtk.General.General.mainQuit new_s
	      of wild1 { (# new_s1, a411 #) ->
	      case Main.lvl3 new_s1 of wild2 { (# new_s2, a412 #) ->
	      case Graphics.UI.Gtk.Display.Image.imageNewFromPixbuf a412 new_s2
	      of wild3 { (# new_s3, a413 #) ->
	      let {
		m :: GHC.IOBase.IO ()
		Str: DmdType
		m = Main.widgetQueueDraw a413 } in
	      let {
		sat_s6OS :: GHC.Prim.State# GHC.Prim.RealWorld
			    -> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.Base.Bool #)
		sat_s6OS = \ s1 :: GHC.Prim.State# GHC.Prim.RealWorld ->
			     case System.CPUTime.getCPUTime s1 of wild4 { (# new_s4, a414 #) ->
			     case Main.pixbufSetGreen a412 new_s4
			     of wild5 { (# new_s5, a415 #) ->
			     case m new_s5 of wild6 { (# new_s6, a416 #) ->
			     (# new_s6, GHC.Base.True #)
			     }
			     }
			     }
	      } in 
		case Graphics.UI.Gtk.General.General.timeoutAdd
		       sat_s6OS Main.lvl new_s3
		of wild4 { (# new_s4, a414 #) ->
		case Main.containerAdd a41 a413 new_s4
		of wild5 { (# new_s5, a415 #) ->
		Main.widgetShowAll a41 new_s5
		}
		}
	      }
	      }
	      }
	      }

Main.main :: GHC.IOBase.IO ()
[GlobalId]
Str: DmdType
Main.main = Graphics.UI.Gtk.General.General.startGUI Main.lvl5

:Main.main :: GHC.IOBase.IO ()
[GlobalId]
Arity 1 Str: DmdType L
:Main.main = \ eta :: GHC.Prim.State# GHC.Prim.RealWorld ->
	       GHC.Prim.catch#
		 @ ()
		 @ GHC.IOBase.Exception
		 Main.main
		 (GHC.TopHandler.topHandler @ ())
		 eta