Reformatted by Haskell style scanner