hours : List Nat
hours = [1..12]

nats : Stream Nat
nats = [0,1..]