Как обеспечить добавление правильных элементов в рекурсивный тип данных?

Возможный дубликат:
вывод усечен с #-знаками в REPL

Скажем, у меня есть рекурсивный тип данных, например, накопление различных комбинаций фруктов.

datatype fruits = Apple | Orange | Pineapple | Pear
type fruit = fruits;
datatype basket = Empty | Basket of fruit * basket;

Теперь, если я добавлю фрукт в basket, вы получите что-то вроде

Basket(Apple,Empty)

Если бы я добавил второй фрукт, я бы получил,

Basket(Apple,Basket(#,#))

Я предполагаю, что это так для целей отображения?

Есть ли возможность/способ проверить правильность заполнения моей корзины?