Toy haskell code for computing winning odds at loto in real time