Close to getting inspector example rewritten in Haskell.