Hola que tal espero puedan ayudarme Tengo que realizar una funcion de suma de numeros binarios de dos listas y haciendo la suma de derecha a izquierda como si se hiciera la suma a mano, he realizado esta funcion pero ya estoy estancado, alguna idea? esto es lo que llevo
```
suma :: [Int] -> [Int] -> [Int]
suma xs [] = xs
suma [] ys = ys
suma [] [] = []
suma xs ys =
| last xs + last ys == 0 = 0:[0] suma init xs init ys
| last xs + last ys == 1 = 1:[] suma init xs init ys
| last xs + last ys == 2 = 1:[0]
```