    (v.!$if.(f1.amdahl.(mv.!$.\(v.{.e)?)0,(mv.!$.\(v.{.,i.{.))0),m)0m-0
    (f.predicate  A.s.integerfn  A.(f1.(.i. .)?)0m-0
    (f.true .s.result =1.)0m-0
    (f.false .s.result =0.)0m-0
    U -
    (f. a(.r2nri.#0.)0m-0
    (f. assop.s. assop#0.)0m-0
    (f.  else  if .ri.finish .(f1.;.,r0)i. start .)0m-0
    (f.  else .(v.  else  .,s.  finishelsestart .))0m-0
    (f.shortinteger.s.integer.)0
    c