fun main () = s <- source (Some "B"); let val onc = v <- get s; alert ("Now it's " ^ show v) in return Hello, I'm {[s]}}/>. I'll be your waiter for this evening. end