adamc@758: fun handler' ls = adamc@758: case ls of adamc@758: Nil => adamc@761: | Cons (r, ls) =>
  • {[r.Nam]}, {[r.A]}, {[r.B]}, {[r.Sub]}
  • {handler' ls}
    adamc@758: adamc@758: fun handler r = return adamc@759: {[r.A]}
    adamc@759: {handler' r.Sub} adamc@759: {[r.C]} adamc@758:
    adamc@758: adamc@758: fun main () = return adamc@758:
    adamc@758:
    adamc@758: adamc@758: adamc@761: adamc@758:
    adamc@758:
    adamc@758:
    adamc@758:
    adamc@759: adamc@759: adamc@761: adamc@759:
    adamc@759:
    adamc@759:
    adamc@759:
    adamc@758: adamc@758:
    adamc@758: adamc@758: adamc@758: