Red ["Integer sequence"]

i: 1
forever [
    print i
    i: i + 1
]