Sample code for LeoFS in Haskell