fun doSubmit r = return Done {[readError r.Amount1 * readError r.Amount2 * 2.0]} fun main () = amount1S <- source "1"; amount2S <- source "1"; return
Amount1:
Amount2:
Total:
and showTotal amount1S amount2S = a1 <- signal amount1S; a2 <- signal amount2S; return (case ((read a1), (read a2)) of (None, _) => | (_, None) => | (Some a, Some b) => {[a * b * 2.0]})