test_cexp_unsafe :: CDouble -> CDouble -> IO CDouble
test_cexp_unsafe x y =
  [CU.exp| double{ cos($(double x)) + cos($(double y)) } |]
test_cexp_unsafe :: CDouble -> CDouble -> IO CDouble
test_cexp_unsafe x y =
  [CU.exp| double{ cos($(double x)) + cos($(double y)) } |]
test_cexp_unsafe x y =
  [CU.exp| double{ cos($(double x)) + cos($(double y)) } |]