-- jhc -v test/HelloWorld.hs -fno-wrapper -fvia-ghc
-- ghc hs.out_code.hs -o hs.out

{-# OPTIONS_GHC -fglasgow-exts -fno-implicit-prelude #-}
module Main(main) where

import GHC.IOBase
import GHC.Prim
import GHC.Base
import GHC.Ptr

type World__ = State# RealWorld

type Nothing = ()

theNothing :: Nothing
theNothing = ()

main :: IO ()
main = IO $ \rw -> case theRealMain rw of rw' -> (# rw', () #)

unPtr :: Ptr a -> Addr#
unPtr ptr = case ptr of
    Ptr addr -> addr

unFunPtr :: FunPtr a -> Addr#
unFunPtr ptr = case ptr of
    FunPtr addr -> addr

fromBool :: Bool -> Int#
fromBool b = case b of
    False -> 0#
    True -> 1#

scrutAddr :: Addr# -> Int#
scrutAddr addr = if eqAddr# addr nullAddr# then 0# else 1#

gteChar# a b = gtChar# a b || eqChar# a b
lteChar# a b = ltChar# a b || eqChar# a b

convertString :: [Char] -> ListTCon Char
convertString [] = jhc_EmptyList
convertString (x:xs) = jhc_Cons x (convertString xs)

theRealMain :: World__ -> World__

jhc_Cons = DJhc__Basics___x3a
jhc_EmptyList = DJhc__Basics___x5b_x5d
type ListTCon = TJhc__Basics___x5b_x5d_1
data Type = Char | Int
data TJhc__Basics___x5b_x5d_1 x2 = DJhc__Basics___x3a x2 (TJhc__Basics___x5b_x5d_1 x2) | DJhc__Basics___x5b_x5d
data TJhc__Basics___L_R_0 = DJhc__Basics___L_R

theRealMain = let {
                  vtheMain :: World__ -> World__;
                  vtheMain vx314 = case vPrelude__IO__putStr (DJhc__Basics___x3a (C# 'H'#) (DJhc__Basics___x3a (C# 'e'#) (DJhc__Basics___x3a (C# 'l'#) (DJhc__Basics___x3a (C# 'l'#) (DJhc__Basics___x3a (C# 'o'#) (DJhc__Basics___x3a (C# ','#) (DJhc__Basics___x3a (C# ' '#) (DJhc__Basics___x3a (C# 'W'#) (DJhc__Basics___x3a (C# 'o'#) (DJhc__Basics___x3a (C# 'r'#) (DJhc__Basics___x3a (C# 'l'#) (DJhc__Basics___x3a (C# 'd'#) (DJhc__Basics___x3a (C# '!'#) DJhc__Basics___x5b_x5d))))))))))))) vx314 of {
                                       (# vx122, _ #) -> func_io_putwcharvoid_wchar_t vx122 '\n'#
                                   };
                  vPrelude__IO__putStr :: (TJhc__Basics___x5b_x5d_1 Char) -> (World__ -> (# World__, TJhc__Basics___L_R_0 #));
                  vPrelude__IO__putStr vPrelude__IO__4_us vx134 = let {
                                                                      vx88 :: (TJhc__Basics___x5b_x5d_1 Char) -> (World__ -> (# World__, TJhc__Basics___L_R_0 #));
                                                                      vx88 vx98 vx100 = case vx98 of {
                                                                                            (DJhc__Basics___x3a vx114 vx116) -> case vx114 of {
                                                                                                                                    (C# vx76) -> case vx76 of {
                                                                                                                                                     vx78 -> (case func_io_putwcharvoid_wchar_t vx100 vx78 of {
                                                                                                                                                                  vx80 -> (vx88 vx116 vx80)
                                                                                                                                                              })
                                                                                                                                                 }
                                                                                                                                };
                                                                                            DJhc__Basics___x5b_x5d -> (# vx100, DJhc__Basics___L_R #)
                                                                                        }
                                                                  } in vx88 vPrelude__IO__4_us vx134
              } in vtheMain

foreign import ccall unsafe "putwchar" func_io_putwcharvoid_wchar_t :: World__ -> Char# -> World__