module AufgabeFFP1
where

pof2s :: [Integer]
pof2s = map (2^) [0,1..]