fun main () = b <- source True; let fun textboxList xs = {List.mapX (fn src => ) xs}

in s <- source "foo"; return {textboxList (s :: s :: [])} end