module LDText

module Ast =
    type Rung = Step list

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

    and Step =
        | StepInstr of Instr
        | StepBranch of Step list

    and Operand =
        | OperandHole
        | OperandTag of string