sclass HuffmanTree {
  settable Node root;
  
  /*
  algebraic Node {
    constructor Branch {
      settable Node zero;
      settable Node one;
    }
    constructor Leaf {
      settable byte literal;
    }
  }
  */
  
  abstract class Node {}
  
  class Branch > Node {
    settable Node zero;
    settable Node one;
  }
  
  class Leaf > Node {
    settable byte literal;
  }
}