Select Code to Download

import Char  -- for intToDigit

...
  d  <- map intToDigit [0 .. max-1]
  ds <- [] : gen (len-1) max
  return (d:ds)

gen :: Int -> Int -> [String]
gen 0 _ = []
...
        )
        ( map intToDigit [0 .. max-1] )
  )