let printf fmt l =   call (string "printf" :: string "--" :: fmt :: l)