let x = Plik.wartosc

let y = Plik.operacja x

open Plik

let z = operacja y

let _ = print_endline (string_of_typ z)