Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
7 lines (6 sloc) 117 Bytes
let rec (--) n m =
if n > m then []
else n::(n+1 -- m)
let id x = x
let const x y = x
let (>>) f g x = g @@ f x