cpp_hell.hs

{-# LANGUAGE CPP #-}                                                                                                                           
                                                                                                                                               
#define InnieOuttie IO                                                                                                                         
#define class module                                                                                                                           
#define begin where                                                                                                                            
#define mayo main                                                                                                                              
#define memo putStrLn                                                                                                                                                    
#define end --                                                                                                                                 
#define void ()                                                                                                                                
#define is ::                                                                                                                                  
#define equals_equals ==                                                                                                                       
#define equals =                                                                                                                               
#define STR(x) ("x")

class Example begin                                                                                                                            
                                                                                                                                               
mayo is InnieOuttie void                                                                                                                       
mayo equals memo STR(Hello, World!)                                                                                                                   
                                                                                                                                               
end  

sinful.