let
name
=
"tictac"
;;
let
lock
=
"/tmp/"
^
name
^
".lock"
;;
let
error
s
=
prerr_endline
s
;
exit
1;;