Data.Tree.Replicate

replicateA

replicateTree