let almostfree (n : node) : bool = 
  fold (fun edge acc -> match edge with
          | InIsect e -> acc && true
          | InConcat(_,_) -> (size n.inb = 1)
       ) n.inb true