Questa semplicissima funzione mi da' errore... Data una lista di quadruple e un intero, la funzione dovrebbe restituire una lista di interi, contenente quegli interi che sono in seconda posizione e in cui in prima posizione c'e' l'intero passato per argomento....
codice:
let rec crea (n,l1,g1) = match g1 with
	[] -> l1::[]
	| x::xs -> match x with (a,b,c,d) -> if a=n then crea(n,l1::b::[],xs)
					     else crea(n,l1,xs);;
L'errore è
codice:
Characters 110-112:
  	| x::xs -> match x with (a,b,c,d) -> if a=n then crea(n,l1::b::[],xs)
                                                           ^^
Error: This expression has type 'a list
       but an expression was expected of type 'a
       The type variable 'a occurs inside 'a list