let skel =
    [| [| false ; false ; true  ; false |] ;
       [| false ; false ; true  ; false |] ;
       [| true  ; true  ; false ; true  |] ;
       [| false ; false ; true  ; false |] |]