*ocaml— труЪ-копетанский язык:
[komar@pavilion ~]$ ocaml
Objective Caml version 3.11.1
# Filename.current_dir_name;;
— : string = "."
# Filename.parent_dir_name;;
— : string = ".."
[komar@pavilion ~]$ grep "let current_dir_name" src/ocaml-3.11.1/stdlib/filename.ml
let current_dir_name = "."
let current_dir_name = "."
let current_dir_name = "."
[komar@pavilion ~]$ grep "let parent_dir_name" src/ocaml-3.11.1/stdlib/filename.ml
let parent_dir_name = ".."
let parent_dir_name = ".."
let parent_dir_name = ".."
from pavilion, 17 months ago