[Haskell-cafe] represent data sturcture using function