如何制作一个表示一系列加倍数的惰性列表？例:
1 2 4 8 16 32
ocaml stream lazy-evaluation
lazy-evaluation ×1
ocaml ×1
stream ×1