Add optional arguments to the default functions

[mransan]

With this revision the generated default function accepts optional argument for each field of the record.

For instance:

val default_person : 
   ?name:string ->
   ?id:int32 ->
   ?email:string option ->
   ?phone:string list ->
   unit ->
   person