adamc@774: fun yourChoice r = return
adamc@774: {case checkUrl r.Url of
adamc@774: None => You aren't allowed to link to there.
adamc@774: | Some url => Enjoy!}
adamc@774:
adamc@774:
adamc@774: fun main () = return
adamc@774: Learn something
adamc@774:
adamc@774:
adamc@774: