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: URL of your choice: adamc@774: adamc@774: