let sq x = x*x;;
let g = gen sq;;