sig val default : '-> 'a option -> 'end