test :: GlobalArray (Exp Int) -> KC ()
test arr = let arr' = Input arr 
               imm  = LaunchUn 10 256 (stdIn 256) myKern (stdOut 256) arr'
               imm2 = LaunchUn 10 256 (stdIn 256) myKern (stdOut 256) imm
            in WriteResult 10 256 imm2
test :: GlobalArray (Exp Int) -> KC ()
test arr = let arr' = Input arr 
               imm  = LaunchUn 10 256 (stdIn 256) myKern (stdOut 256) arr'
               imm2 = LaunchUn 10 256 (stdIn 256) myKern (stdOut 256) imm
            in WriteResult 10 256 imm2
test arr = let arr' = Input arr 
               imm  = LaunchUn 10 256 (stdIn 256) myKern (stdOut 256) arr'
               imm2 = LaunchUn 10 256 (stdIn 256) myKern (stdOut 256) imm
            in WriteResult 10 256 imm2