fork download
  1. type 'a t = 'a list
  2. let nosib (t : 'a t) =
  3. match t with
  4. | [_] -> (t : [`No_siblings] t)
  5. | _ -> failwith "foo"
  6.  
Not running #stdin #stdout 0s 0KB
stdin
Standard input is empty
stdout
Standard output is empty