import Data.List

funclist = [(+), (-), (*)]

infinite_funclist = cycle funclist

(first:rest) = [65..70]

result = foldl' (\acc (v, f) -> acc `f` v) first (zip rest infinite_funclist)

main = print result