Yampa/kSwitch

kSwitch ::  SF in  out
        -> SF (in, out) (Event t)
        -> (SF in  out -> t -> SF in out)
        ->  SF in  out

(download original Yampa kSwitch.svg)