never executed always true always false

    1 module HelVM.HelMA.Automata.BrainFuck.Impl.Fast.Instruction where
    2 
    3 data FastInstruction =
    4     Move Integer
    5   | Inc Integer
    6   | Output
    7   | Input
    8   | While FastInstructionList
    9   | Set Integer
   10   | SubClr Integer
   11   | AddClr Integer
   12   | MulAddClr Integer Integer
   13   | DupClr Integer Integer
   14   | MulDupClr Integer Integer Integer Integer
   15   | TriClr Integer Integer Integer
   16   deriving stock (Eq , Read , Show)
   17 
   18 type FastInstructionList = [FastInstruction]