.

1
2
3
4
5
6
7
8
9
10
11
12
data Tree
    = Leaf State
    | Node Float Int [Tree] State
    deriving (Eq,Show)


data State= State {
  getJ::Int,
  getF::Float
-- add more state here getK::String
}