Поправить ошибки в коде клеточного автомата

open System
open System.Windows.Forms
open System.Drawing
open System.Windows.Controls
open Microsoft.FSharp.Math 
 
 
type cell = A | B
let rule30 a b c =  
  match a, b, c with
  | B, B, _ | B, A, B | A, A, A -> A 
  | _ -> B 
val rule30 : cell -> cell -> cell -> cell 
 
let rec evolve_aux rule = function 
  | a::(b::c:: _ as t) ->   // вместо смайла скобка (
     rule a b c :: evolve_aux rule t 
      |[a; b] -> [rule a b A; rule b A A] 
      | [a] -> [rule A a A; rule a A A] 
      | [] -> [rule A A A] ;; 
val evolve_aux : 
  (cell -> cell -> cell -> 'a) -> cell list -> 'a list 
  
let evolve rule list = 
  evolve_aux rule (A :: A :: list);; 
val evolve : 
  (cell -> cell -> cell -> 'a) -> cell list -> 'a list 
  
let color_of_cell = function 
  | A -> Color.White 
  | B -> Color.Black;; 
val color_of_cell : cell -> Color    
 
 
let set (bitmap : Bitmap) y x c = 
  let x = bitmap.Width / 2 - y + x 
  if 0 <= x && x < bitmap.Width then 
   bitmap.SetPixel(x, y, color-of-cell c);; 
val set : Bitmap -> int -> int -> cell -> unit 
 
 
let draw rule bitmap = 
  let aux gen y = 
    List.iteri (set bitmap y) gen 
    evolve rule gen 
  ignore (Seq.fold aux [B] {0 .. bitmap.Height - 1}) ;; 
val draw :
  (cell -> cell -> cell -> cell) -> Bitmap -> unit
  
let form = make_raster (draw rule30);  
val form : Form   
 
Application.Run(form)