-- Coordination code.
reduceLarge :: GlobalArray (Exp Int) -> KC () 
reduceLarge arr = let arr' = Input arr 
                      imm  = LaunchUn 256 256 (stdIn 256) reduceAddInt (stdOut 1) arr' 
                      imm2 = LaunchUn 1   256 (stdIn 256) reduceAddInt (stdOut 1) imm 
                  in  WriteResult 1 1 imm2
reduceLarge :: GlobalArray (Exp Int) -> KC ()
reduceLarge arr = let arr' = Input arr 
                      imm  = LaunchUn 256 256 (stdIn 256) reduceAddInt (stdOut 1) arr' 
                      imm2 = LaunchUn 1   256 (stdIn 256) reduceAddInt (stdOut 1) imm 
                  in  WriteResult 1 1 imm2
reduceLarge arr = let arr' = Input arr 
                      imm  = LaunchUn 256 256 (stdIn 256) reduceAddInt (stdOut 1) arr' 
                      imm2 = LaunchUn 1   256 (stdIn 256) reduceAddInt (stdOut 1) imm 
                  in  WriteResult 1 1 imm2