test/Golden/Grammar/brainfuck.opt.dump

   1 <*>
   2 + <*>
   3 | + pure (const id)
   4 | ` def let_1
   5 |   ` <*>
   6 |     + pure ((flip ($)) () . const id)
   7 |     ` chainPost
   8 |       + pure ()
   9 |       ` <*>
  10 |         + pure (((.) ((flip ($)) id) . const) id)
  11 |         ` satisfy
  12 ` def let_2
  13   ` chainPre
  14     + <*>
  15     | + conditional
  16     | | + bs
  17     | | | + <*>
  18     | | | | + pure ((.) Haskell . (const . const Haskell))
  19     | | | | ` satisfy
  20     | | | + <*>
  21     | | | | + pure ((.) Haskell . (const . const Haskell))
  22     | | | | ` satisfy
  23     | | | + <*>
  24     | | | | + pure ((.) Haskell . (const . const Haskell))
  25     | | | | ` satisfy
  26     | | | + <*>
  27     | | | | + pure ((.) Haskell . (const . const Haskell))
  28     | | | | ` satisfy
  29     | | | + <*>
  30     | | | | + pure ((.) Haskell . (const . const Haskell))
  31     | | | | ` satisfy
  32     | | | + <*>
  33     | | | | + pure ((.) Haskell . (const . const Haskell))
  34     | | | | ` satisfy
  35     | | | ` <*>
  36     | | |   + <*>
  37     | | |   | + <*>
  38     | | |   | | + <*>
  39     | | |   | | | + pure ((.) ((.) ((.) ((.) Haskell))) . ((.) ((.) ((.) const)) . ((.) ((.) ((flip ($)) (const Haskell))) . ((.) ((.) (.)) . ((.) ((.) const) . ((.) ((flip ($)) Haskell) . ((.) (.) . ((.) (const id) . const))))))))
  40     | | |   | | | ` satisfy
  41     | | |   | | ` ref let_1
  42     | | |   | ` rec let_2
  43     | | |   ` satisfy
  44     | | + look
  45     | | | ` satisfy
  46     | | ` empty
  47     | ` ref let_1
  48     ` pure Haskell