1 2 3 4 5 6 7 8 9 10
abstract Binary = { cat Bin; fun End : Bin ; fun Zero : Bin -> Bin ; fun One : Bin -> Bin ; }