adamc@280: table t1 : {A : int, B : string, C : float} adamc@280: adamc@280: fun lookup (inp : {B : string}) = adamc@280: s <- query (SELECT t1.B FROM t1 WHERE t1.B = {inp.B}) adamc@280: (fn fs _ => return fs.T1.B) adamc@280: "Couldn't find it!"; adamc@280: return adamc@280: Result: {cdata s} adamc@280: adamc@280: adamc@280: fun main () : transaction page = return adamc@280: adamc@280: B: adamc@280: adamc@280: adamc@280: