П>let fpower = Seq.init >> (>>) Const >> (<<) (Seq.fold (>>) id) П>
fpower = (foldr (.) id.).replicate
fpower = (appEndo.).(mconcat.).(.Endo).replicate