compLocalBulkArrCMD :: (BulkArrCMD LArr) (Param3 RunGen exp pred) a -> RunGen a
compLocalBulkArrCMD (WriteArr offset spm range ram) =
    compLocalCopy "host_write_local"  spm ram offset range
compLocalBulkArrCMD :: (BulkArrCMD LArr) (Param3 RunGen exp pred) a -> RunGen a
compLocalBulkArrCMD (WriteArr offset spm range ram) =
    compLocalCopy "host_write_local"  spm ram offset range
compLocalBulkArrCMD (WriteArr offset spm range ram) =
    compLocalCopy "host_write_local"  spm ram offset range