Bit-fiddling eficiente en una implementación LFSR

Aunque tengo una buena implementación de LSFR C, pensé que intentaría lo mismo en Haskell, solo para ver cómo funciona. Lo que se me ocurrió, hasta ahora, es dos órdenes de magnitud más lento que la implementación de C, lo que plantea ...