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