-- | We can always produce output
formatComp ::
  Set HackRegister -> HackComputation -> HackAM -> Set Ordering -> Text
formatComp dest comp am jump =
  T.concat
    [ "111"
    , formatAM am
    , formatCompExpr comp
    , formatDest dest
    , formatJump jump
    ]
formatComp ::
  Set HackRegister -> HackComputation -> HackAM -> Set Ordering -> Text
formatComp dest comp am jump =
  T.concat
    [ "111"
    , formatAM am
    , formatCompExpr comp
    , formatDest dest
    , formatJump jump
    ]
formatComp dest comp am jump =
  T.concat
    [ "111"
    , formatAM am
    , formatCompExpr comp
    , formatDest dest
    , formatJump jump
    ]