allocInput (GlobalArray id) = 
  "  int* dinput"++ show id ++ ";\n" ++ 
  "  cudaMalloc((void**)&dinput" ++ show id ++ ", sizeof(int) * input" ++ show id ++ "size );\n"
allocInput (GlobalArray id) = 
  "  int* dinput"++ show id ++ ";\n" ++ 
  "  cudaMalloc((void**)&dinput" ++ show id ++ ", sizeof(int) * input" ++ show id ++ "size );\n"
allocInput (GlobalArray id) = 
  "  int* dinput"++ show id ++ ";\n" ++ 
  "  cudaMalloc((void**)&dinput" ++ show id ++ ", sizeof(int) * input" ++ show id ++ "size );\n"