This is basically copy-pasted from Rosetta Code, though I did write the original a few months back, so it's not really copy-pasted though the idea was never really mine (I just simplified it).

Okay, I'm marking this as resolved.

Here, I've marked your post as a spoiler, feel free to put your code down.

I'm getting a so-called "Unknown error." I can't give to code or it will be a "spoiler" though. Note that it works on my local machine.

Confirmed in Haskell