let alt_seq2_b s =
  let len = Array.length s in
  let r = ref true in
  let i = ref 1 in
    while !r && (!i < len) do
      r := !r && (s.(!i-1) <> s.(!i));
      incr i
    done;
    !r