test/Golden/Grammar/brainfuck.dump

   1 <*>
   2 + <*>
   3 | + pure (@) const id
   4 | ` def let_2
   5 |   ` <*>
   6 |     + pure (@) ((@) (.) ((@) ((@) flip ($)) ())) ((@) const id)
   7 |     ` chainPost
   8 |       + pure ()
   9 |       ` <*>
  10 |         + pure (@) ((@) ((@) (.) ((@) (.) ((@) ((@) flip ($)) id))) const) id
  11 |         ` satisfy
  12 ` def let_1
  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_2
  42     | | |   | ` rec let_1
  43     | | |   ` satisfy
  44     | | + look
  45     | | | ` satisfy
  46     | | ` empty
  47     | ` ref let_2
  48     ` pure Haskell