#include "List.h"

List map(ListElementType f(ListElementType), List L)
/* NB. f is a function formal-parameter  -- L.Allison */
 { if(L==NULL) return NULL;
   /*else*/ return cons(f(L->hd), map(f, L->tl) );
 }

/* Map: Apply a Function f to Each Element of a List L */