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