(let (sinlu (array/new 10)) # 10 element look up table. (for i 0 10 (put sinlu i (math/sin (* math/pi (/ i 10))))) (pp sinlu))