AZ
Size: a a a
AZ
λ
traverse_ _ [] = pure ()
traverse_ f (x : xs) = do
f x
traverse_ f xs
λ
λ
λ
import Data.Foldable
main = let
next i = i * (i + 2)
is = 5 : map next is
xs = (subtract 1) <$> is
in traverse_ print $ takeWhile (< 300) xs
λ
Т8
λ
AZ
AZ
AZ
B
Т8
SP
DS
DS
λ
SP
Т8
С