Rose_Node board [] -> func1 ((max OR min of) (eval board)) (pick_n_distribute board [1..6])

func1:: Pebbles -> [Board] -> [Board]
func1 peb board = case board of
    []      -> []
    x:xs -> case (whoami==(turn board))
        True
            | (min (pick_n_distribute x)) <= peb -> x: func1 maxpeb xs
            | otherwise -> func1 peb xs
        False
            | (max (pick_n_distribute x)) >= peb -> x: func1 maxpeb xs
            | otherwise -> func1 peb xs