001 in haskell
range was wrong
better names