Correctly parse json 100 times in haskell