adamc@717: fun readersChoice r = return
adamc@770: {case checkUrl r.Url of
adamc@770: None => I can't do that, Dave.
adamc@770: | Some url => Your pick, boss}
adamc@717:
adamc@717:
adamc@717: fun main () : transaction page = return
adamc@770: Learn
adamc@717:
adamc@717:
adamc@717:
adamc@717: