3 mayRaise=[ExceptionFailure]
6 | pushValue (\x_0 -> GHC.Tuple.())
8 | mayRaise=[ExceptionFailure]
11 | pushValue (\x_0 -> x_0)
13 | mayRaise=[ExceptionFailure]
18 | mayRaise=[ExceptionFailure]
23 | mayRaise=[ExceptionFailure]
27 | | | pushValue (\x_0 -> \x_1 -> x_1)
29 | | | mayRaise=[ExceptionFailure]
32 | | | comment "satisfy (\\c_0 -> GHC.Classes.not (('<' GHC.Classes.== c_0) GHC.Classes.|| (('>' GHC.Classes.== c_0) GHC.Classes.|| (('+' GHC.Classes.== c_0) GHC.Classes.|| (('-' GHC.Classes.== c_0) GHC.Classes.|| ((',' GHC.Classes.== c_0) GHC.Classes.|| (('.' GHC.Classes.== c_0) GHC.Classes.|| (('[' GHC.Classes.== c_0) GHC.Classes.|| ((']' GHC.Classes.== c_0) GHC.Classes.|| GHC.Types.False)))))))))"
34 | | | mayRaise=[ExceptionFailure]
37 | | | read (\c_0 -> GHC.Classes.not (('<' GHC.Classes.== c_0) GHC.Classes.|| (('>' GHC.Classes.== c_0) GHC.Classes.|| (('+' GHC.Classes.== c_0) GHC.Classes.|| (('-' GHC.Classes.== c_0) GHC.Classes.|| ((',' GHC.Classes.== c_0) GHC.Classes.|| (('.' GHC.Classes.== c_0) GHC.Classes.|| (('[' GHC.Classes.== c_0) GHC.Classes.|| ((']' GHC.Classes.== c_0) GHC.Classes.|| GHC.Types.False)))))))))
39 | | | mayRaise=[ExceptionFailure]
42 | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
47 | | | readRegister reg
52 | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
57 | | | writeRegister reg
68 | | | comment "raiseAgainIfConsumed"
70 | | | mayRaise=[ExceptionFailure]
75 | | | mayRaise=[ExceptionFailure]
78 | | | lift2Value (\(Data.Text.Internal.Text _ i_0 _) (Data.Text.Internal.Text _
80 | | | _) -> i_0 GHC.Classes.== j_1)
82 | | | mayRaise=[ExceptionFailure]
87 | | | mayRaise=[ExceptionFailure]
90 | | | | <branch (\x_0 -> x_0)>
91 | | | | | readRegister reg
94 | | | | | alwaysRaise=[]
95 | | | | | freeRegs=[reg]
96 | | | | | pushValue GHC.Tuple.()
99 | | | | | alwaysRaise=[]
100 | | | | | freeRegs=[]
101 | | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
103 | | | | | mayRaise=[]
104 | | | | | alwaysRaise=[]
105 | | | | | freeRegs=[]
106 | | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
108 | | | | | mayRaise=[]
109 | | | | | alwaysRaise=[]
110 | | | | | freeRegs=[]
113 | | | | | mayRaise=[]
114 | | | | | alwaysRaise=[]
115 | | | | | freeRegs=[]
119 | | | | | mayRaise=[ExceptionFailure]
120 | | | | | alwaysRaise=[ExceptionFailure]
121 | | | | | freeRegs=[]
124 mayRaise=[ExceptionFailure]
127 | pushValue (\x_0 -> x_0)
129 | mayRaise=[ExceptionFailure]
134 | mayRaise=[ExceptionFailure]
139 | mayRaise=[ExceptionFailure]
143 | | | pushValue (\x_0 -> \x_1 -> (GHC.Types.:) x_0)
145 | | | mayRaise=[ExceptionFailure]
150 | | | mayRaise=[ExceptionFailure]
153 | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
155 | | | | mayRaise=[ExceptionFailure]
156 | | | | alwaysRaise=[]
157 | | | | freeRegs=[reg]
160 | | | | mayRaise=[ExceptionFailure]
161 | | | | alwaysRaise=[]
162 | | | | freeRegs=[reg]
163 | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
166 | | | | alwaysRaise=[]
167 | | | | freeRegs=[reg]
168 | | | | pushValue (\x_0 -> \x_1 -> \x_2 -> x_1 (x_0 x_2))
171 | | | | alwaysRaise=[]
172 | | | | freeRegs=[reg]
173 | | | | lift2Value (\x_0 -> \x_1 -> x_1 x_0)
176 | | | | alwaysRaise=[]
177 | | | | freeRegs=[reg]
178 | | | | readRegister reg
181 | | | | alwaysRaise=[]
182 | | | | freeRegs=[reg]
183 | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
186 | | | | alwaysRaise=[]
187 | | | | freeRegs=[reg]
188 | | | | writeRegister reg
191 | | | | alwaysRaise=[]
192 | | | | freeRegs=[reg]
196 | | | | alwaysRaise=[]
200 | | | mayRaise=[ExceptionFailure]
205 | | | mayRaise=[ExceptionFailure]
208 | | | comment "satisfy ((\\x_0 -> \\x_1 -> x_0) GHC.Types.True)"
210 | | | mayRaise=[ExceptionFailure]
213 | | | read (\x_0 -> GHC.Types.True)
215 | | | mayRaise=[ExceptionFailure]
220 | | | mayRaise=[ExceptionFailure]
225 | | | mayRaise=[ExceptionFailure]
230 | | | mayRaise=[ExceptionFailure]
233 | | | | <branch (\x_0 -> (GHC.Classes.==) '<' x_0)>
234 | | | | | pushValue (\x_0 -> Parsers.Brainfuck.Types.Backward)
236 | | | | | mayRaise=[ExceptionFailure]
237 | | | | | alwaysRaise=[]
238 | | | | | freeRegs=[reg]
239 | | | | | comment "satisfy ((\\x_0 -> \\x_1 -> x_0) GHC.Types.True)"
241 | | | | | mayRaise=[ExceptionFailure]
242 | | | | | alwaysRaise=[]
243 | | | | | freeRegs=[reg]
244 | | | | | read (\x_0 -> GHC.Types.True)
246 | | | | | mayRaise=[ExceptionFailure]
247 | | | | | alwaysRaise=[]
248 | | | | | freeRegs=[reg]
249 | | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
251 | | | | | mayRaise=[ExceptionFailure]
252 | | | | | alwaysRaise=[]
253 | | | | | freeRegs=[reg]
254 | | | | | refJoin join
256 | | | | | mayRaise=[ExceptionFailure]
257 | | | | | alwaysRaise=[]
258 | | | | | freeRegs=[reg]
259 | | | | <branch (\x_0 -> (GHC.Classes.==) '>' x_0)>
260 | | | | | pushValue (\x_0 -> Parsers.Brainfuck.Types.Forward)
262 | | | | | mayRaise=[ExceptionFailure]
263 | | | | | alwaysRaise=[]
264 | | | | | freeRegs=[reg]
265 | | | | | comment "satisfy ((\\x_0 -> \\x_1 -> x_0) GHC.Types.True)"
267 | | | | | mayRaise=[ExceptionFailure]
268 | | | | | alwaysRaise=[]
269 | | | | | freeRegs=[reg]
270 | | | | | read (\x_0 -> GHC.Types.True)
272 | | | | | mayRaise=[ExceptionFailure]
273 | | | | | alwaysRaise=[]
274 | | | | | freeRegs=[reg]
275 | | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
277 | | | | | mayRaise=[ExceptionFailure]
278 | | | | | alwaysRaise=[]
279 | | | | | freeRegs=[reg]
280 | | | | | refJoin join
282 | | | | | mayRaise=[ExceptionFailure]
283 | | | | | alwaysRaise=[]
284 | | | | | freeRegs=[reg]
285 | | | | <branch (\x_0 -> (GHC.Classes.==) '+' x_0)>
286 | | | | | pushValue (\x_0 -> Parsers.Brainfuck.Types.Increment)
288 | | | | | mayRaise=[ExceptionFailure]
289 | | | | | alwaysRaise=[]
290 | | | | | freeRegs=[reg]
291 | | | | | comment "satisfy ((\\x_0 -> \\x_1 -> x_0) GHC.Types.True)"
293 | | | | | mayRaise=[ExceptionFailure]
294 | | | | | alwaysRaise=[]
295 | | | | | freeRegs=[reg]
296 | | | | | read (\x_0 -> GHC.Types.True)
298 | | | | | mayRaise=[ExceptionFailure]
299 | | | | | alwaysRaise=[]
300 | | | | | freeRegs=[reg]
301 | | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
303 | | | | | mayRaise=[ExceptionFailure]
304 | | | | | alwaysRaise=[]
305 | | | | | freeRegs=[reg]
306 | | | | | refJoin join
308 | | | | | mayRaise=[ExceptionFailure]
309 | | | | | alwaysRaise=[]
310 | | | | | freeRegs=[reg]
311 | | | | <branch (\x_0 -> (GHC.Classes.==) '-' x_0)>
312 | | | | | pushValue (\x_0 -> Parsers.Brainfuck.Types.Decrement)
314 | | | | | mayRaise=[ExceptionFailure]
315 | | | | | alwaysRaise=[]
316 | | | | | freeRegs=[reg]
317 | | | | | comment "satisfy ((\\x_0 -> \\x_1 -> x_0) GHC.Types.True)"
319 | | | | | mayRaise=[ExceptionFailure]
320 | | | | | alwaysRaise=[]
321 | | | | | freeRegs=[reg]
322 | | | | | read (\x_0 -> GHC.Types.True)
324 | | | | | mayRaise=[ExceptionFailure]
325 | | | | | alwaysRaise=[]
326 | | | | | freeRegs=[reg]
327 | | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
329 | | | | | mayRaise=[ExceptionFailure]
330 | | | | | alwaysRaise=[]
331 | | | | | freeRegs=[reg]
332 | | | | | refJoin join
334 | | | | | mayRaise=[ExceptionFailure]
335 | | | | | alwaysRaise=[]
336 | | | | | freeRegs=[reg]
337 | | | | <branch (\x_0 -> (GHC.Classes.==) ',' x_0)>
338 | | | | | pushValue (\x_0 -> Parsers.Brainfuck.Types.Input)
340 | | | | | mayRaise=[ExceptionFailure]
341 | | | | | alwaysRaise=[]
342 | | | | | freeRegs=[reg]
343 | | | | | comment "satisfy ((\\x_0 -> \\x_1 -> x_0) GHC.Types.True)"
345 | | | | | mayRaise=[ExceptionFailure]
346 | | | | | alwaysRaise=[]
347 | | | | | freeRegs=[reg]
348 | | | | | read (\x_0 -> GHC.Types.True)
350 | | | | | mayRaise=[ExceptionFailure]
351 | | | | | alwaysRaise=[]
352 | | | | | freeRegs=[reg]
353 | | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
355 | | | | | mayRaise=[ExceptionFailure]
356 | | | | | alwaysRaise=[]
357 | | | | | freeRegs=[reg]
358 | | | | | refJoin join
360 | | | | | mayRaise=[ExceptionFailure]
361 | | | | | alwaysRaise=[]
362 | | | | | freeRegs=[reg]
363 | | | | <branch (\x_0 -> (GHC.Classes.==) '.' x_0)>
364 | | | | | pushValue (\x_0 -> Parsers.Brainfuck.Types.Output)
366 | | | | | mayRaise=[ExceptionFailure]
367 | | | | | alwaysRaise=[]
368 | | | | | freeRegs=[reg]
369 | | | | | comment "satisfy ((\\x_0 -> \\x_1 -> x_0) GHC.Types.True)"
371 | | | | | mayRaise=[ExceptionFailure]
372 | | | | | alwaysRaise=[]
373 | | | | | freeRegs=[reg]
374 | | | | | read (\x_0 -> GHC.Types.True)
376 | | | | | mayRaise=[ExceptionFailure]
377 | | | | | alwaysRaise=[]
378 | | | | | freeRegs=[reg]
379 | | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
381 | | | | | mayRaise=[ExceptionFailure]
382 | | | | | alwaysRaise=[]
383 | | | | | freeRegs=[reg]
384 | | | | | refJoin join
386 | | | | | mayRaise=[ExceptionFailure]
387 | | | | | alwaysRaise=[]
388 | | | | | freeRegs=[reg]
389 | | | | <branch (\x_0 -> (GHC.Classes.==) '[' x_0)>
390 | | | | | pushValue (\x_0 -> \x_1 -> \x_2 -> \x_3 -> Parsers.Brainfuck.Types.Loop x_2)
392 | | | | | mayRaise=[ExceptionFailure]
393 | | | | | alwaysRaise=[]
394 | | | | | freeRegs=[]
395 | | | | | comment "satisfy ((\\x_0 -> \\x_1 -> x_0) GHC.Types.True)"
397 | | | | | mayRaise=[ExceptionFailure]
398 | | | | | alwaysRaise=[]
399 | | | | | freeRegs=[]
400 | | | | | read (\x_0 -> GHC.Types.True)
402 | | | | | mayRaise=[ExceptionFailure]
403 | | | | | alwaysRaise=[]
404 | | | | | freeRegs=[]
405 | | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
407 | | | | | mayRaise=[ExceptionFailure]
408 | | | | | alwaysRaise=[]
409 | | | | | freeRegs=[]
412 | | | | | mayRaise=[ExceptionFailure]
413 | | | | | alwaysRaise=[]
414 | | | | | freeRegs=[]
415 | | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
417 | | | | | mayRaise=[]
418 | | | | | alwaysRaise=[]
419 | | | | | freeRegs=[]
422 | | | | | mayRaise=[]
423 | | | | | alwaysRaise=[]
424 | | | | | freeRegs=[]
425 | | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
427 | | | | | mayRaise=[ExceptionFailure]
428 | | | | | alwaysRaise=[]
429 | | | | | freeRegs=[reg]
430 | | | | | comment "satisfy ((GHC.Classes.==) ']')"
432 | | | | | mayRaise=[ExceptionFailure]
433 | | | | | alwaysRaise=[]
434 | | | | | freeRegs=[reg]
435 | | | | | read ((GHC.Classes.==) ']')
437 | | | | | mayRaise=[ExceptionFailure]
438 | | | | | alwaysRaise=[]
439 | | | | | freeRegs=[reg]
440 | | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
442 | | | | | mayRaise=[ExceptionFailure]
443 | | | | | alwaysRaise=[]
444 | | | | | freeRegs=[reg]
445 | | | | | refJoin join
447 | | | | | mayRaise=[ExceptionFailure]
448 | | | | | alwaysRaise=[]
449 | | | | | freeRegs=[reg]
451 | | | | | fail [FailureEmpty]
453 | | | | | mayRaise=[ExceptionFailure]
454 | | | | | alwaysRaise=[ExceptionFailure]
455 | | | | | freeRegs=[]
457 | | | comment "raiseAgainIfConsumed"
459 | | | mayRaise=[ExceptionFailure]
464 | | | mayRaise=[ExceptionFailure]
467 | | | lift2Value (\(Data.Text.Internal.Text _ i_0 _) (Data.Text.Internal.Text _
469 | | | _) -> i_0 GHC.Classes.== j_1)
471 | | | mayRaise=[ExceptionFailure]
476 | | | mayRaise=[ExceptionFailure]
479 | | | | <branch (\x_0 -> x_0)>
480 | | | | | readRegister reg
482 | | | | | mayRaise=[]
483 | | | | | alwaysRaise=[]
484 | | | | | freeRegs=[reg]
485 | | | | | pushValue GHC.Types.[]
487 | | | | | mayRaise=[]
488 | | | | | alwaysRaise=[]
489 | | | | | freeRegs=[]
490 | | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
492 | | | | | mayRaise=[]
493 | | | | | alwaysRaise=[]
494 | | | | | freeRegs=[]
497 | | | | | mayRaise=[]
498 | | | | | alwaysRaise=[]
499 | | | | | freeRegs=[]
503 | | | | | mayRaise=[ExceptionFailure]
504 | | | | | alwaysRaise=[ExceptionFailure]
505 | | | | | freeRegs=[]
506 pushValue (\x_0 -> \x_1 -> GHC.Show.show x_1)
508 mayRaise=[ExceptionFailure]
513 mayRaise=[ExceptionFailure]
516 lift2Value (\x_0 -> \x_1 -> x_0 x_1)
518 mayRaise=[ExceptionFailure]
523 mayRaise=[ExceptionFailure]
526 lift2Value (\x_0 -> \x_1 -> x_0 x_1)