Sierpinski Triangle as lazy list (Int,Int) -> Bool plot Token suffix trie Invert a monotonic function Hanoi solver divisibleBy a b project euler 1, haskel boolean functions of zero arguments in haskell ReadablePractice