val smallIntTree = consBtree 1 (consBtree 2 (consBtree 5 (consBtree 7 emptyBtree emptyBtree) emptyBtree) (consBtree 3 emptyBtree emptyBtree)) (consBtree 6 (emptyBtree) (consBtree 10 (consBtree 13 emptyBtree emptyBtree) emptyBtree)); val anotherSmallIntTree = consBtree 2 (consBtree 1 (consBtree 7 (consBtree 5 emptyBtree emptyBtree) emptyBtree) (consBtree 13 (emptyBtree) (consBtree 3 (consBtree 6 emptyBtree emptyBtree) emptyBtree))) (consBtree 10 emptyBtree emptyBtree); val bigIntTree = consBtree 6 (consBtree 8 (consBtree 1 (consBtree 3 emptyBtree emptyBtree) (consBtree 88 (consBtree 9 (consBtree 10 emptyBtree emptyBtree) emptyBtree) emptyBtree)) (consBtree 32 emptyBtree (consBtree 12 (consBtree 1 emptyBtree emptyBtree) emptyBtree))) (consBtree 6 (consBtree 12 emptyBtree (consBtree 45 emptyBtree (consBtree 12 emptyBtree emptyBtree))) (consBtree 10 (consBtree 13 (consBtree 111 emptyBtree emptyBtree) emptyBtree) (consBtree 10 emptyBtree (consBtree 92 emptyBtree (consBtree 102 emptyBtree emptyBtree))))); val smallStringTree = consBtree "luft" (consBtree "vatten" emptyBtree emptyBtree) (consBtree "eld" (consBtree "jord" emptyBtree (consBtree "styrdans" emptyBtree emptyBtree)) emptyBtree); val bigStringTree = consBtree "skalman" (consBtree "bamse" (consBtree "lilleskutt" (consBtree "daredevil" emptyBtree emptyBtree) (consBtree "läderlappen" emptyBtree emptyBtree)) (consBtree "rocky" emptyBtree (consBtree "hermanhedning" (consBtree "johnnypuma" emptyBtree emptyBtree) emptyBtree))) (consBtree "modestyblaise" (consBtree "x9" emptyBtree (consBtree "fantomen" emptyBtree (consBtree "kerrydrake" emptyBtree emptyBtree))) (consBtree "luckyluke" (consBtree "asterix" (consBtree "obelix" emptyBtree emptyBtree) emptyBtree) (consBtree "idefix" emptyBtree (consBtree "bautasten" emptyBtree (consBtree "majestix" emptyBtree emptyBtree)))));