diff --git a/lib/soc2yaml.ml b/lib/soc2yaml.ml
index a0ce65df806acdc40e1cbdeb08677a88eb8d05bb..2662b525f874d060e0b51d88b3b1e65bec1b2d14 100644
--- a/lib/soc2yaml.ml
+++ b/lib/soc2yaml.ml
@@ -1,7 +1,12 @@
-(* Time-stamp: <modified the 28/06/2022 (at 16:52) by Erwan Jahier> *)
+(* Time-stamp: <modified the 28/06/2022 (at 17:43) by Erwan Jahier> *)
 
 
-let (f : Soc.key -> Soc.tbl -> string -> unit) = fun _soc _stbl  basename -> 
-  Printf.printf "%s.yaml file created\n%! " basename 
+let (f : Soc.key -> Soc.tbl -> string -> unit) = fun sk stbl  basename ->
+
+  let main_soc = SocUtils.find (Lxm.dummy "dfsdf") sk stbl in
+  let str =  SocUtils.string_of_soc main_soc in
+              
+  
+  Printf.printf "%s.yaml file created\n%s\n%! " basename str