probmod=: {{y
  while.do.r=.?0 0
    if. (<u)/r do. {:r return.end.
  end.
}}

mod=: {{|1-2*y}}