let selected =
  ref (if !walk then 1-Walk.first else 0)