takeFromFirstTreeInLumberyard :: Int -> Lumberyard -> [Lumberyard]
takeFromFirstTreeInLumberyard n (t:ts, is)
  | size t >= n = map (\forest -> (forest ++ ts, is)) $ takeFromTree n t
  | otherwise   = []
takeFromFirstTreeInLumberyard :: Int -> Lumberyard -> [Lumberyard]
takeFromFirstTreeInLumberyard n (t:ts, is)
  | size t >= n = map (\forest -> (forest ++ ts, is)) $ takeFromTree n t
  | otherwise   = []
takeFromFirstTreeInLumberyard n (t:ts, is)
  | size t >= n = map (\forest -> (forest ++ ts, is)) $ takeFromTree n t
  | otherwise   = []