adamc@288: fun i2s s =
adamc@288: case stringToInt s of
adamc@288: None => 0
adamc@288: | Some n => n
adamc@288:
adamc@288: fun main () : transaction page = return
adamc@288: Error = {cdata (show _ (i2s "Error"))}
adamc@288: 3 = {cdata (show _ (i2s "+3"))}
adamc@288:
adamc@288: