let
file_exists p = call [string
"test"
; string
"-f"
; p] |> succeeds