Swapped State monad for RWS
Swapped State monad for RWS
Removed extractKernelCode since it was redundant with extractCodeK. Also GenOCL is commented out (adding GenCode class).
Made Program an instance of GenCode.
Made Program an instance of GenCode.