This is my program:

```
boolToInt True  = 1
boolToInt False = 0

gt :: Int -> Int -> Int
gt x y = boolToInt $ (>) x y

```

I try refactoring `gt` with `gt = boolToInt . (>)` but getting an error:

> 
> ‘(>)’ is applied to too few arguments
> 
> 
> 

The only idea come to me is `curry` and `uncurry`, but I suppose it might make `gt` even more complicated than `gt x y = boolToInt $ (>) x y`.

Do I have a prettier *functional* solution to this composition?