Haskell: Adding failing testcase to Scribble

Also changing qCount template to make it a bit easier.