let default = Empty
let of_char = function
- | '0' -> Some Empty
- | 'C' -> Some Conductor
- | 'H' -> Some Head
- | 'T' -> Some Tail
+ | 'v' -> Some Empty
+ | 'c' -> Some Conductor
+ | 'h' -> Some Head
+ | 't' -> Some Tail
| _ -> None
let to_char = function
- | Empty -> '0'
- | Conductor -> 'C'
- | Head -> 'H'
- | Tail -> 'T'
+ | Empty -> 'v'
+ | Conductor -> 'c'
+ | Head -> 'h'
+ | Tail -> 't'