module LDText

module Ast =
    type Rung =
        | Rung of Step list

    and Instr = { Op: string; Args: Operand list }

    and BranchArm =
        | BranchArm of Step list

    and Branch =
        | Branch of BranchArm list

    and Step =
        | StepInstr of Instr
        | StepBranch of Branch

    and Operand =
        | OperandHole
        | OperandTag of string