takeNth :: Int -> Double
takeNth n = ((iterate teo v0) !! n) ! (Z :. 0)
  where
    teo = lorenz63 (10, 28, 8.0/3.0)
    v0 = fromListUnboxed (Z :. 3) [1, 0, 0]
takeNth :: Int -> Double
takeNth n = ((iterate teo v0) !! n) ! (Z :. 0)
  where
    teo = lorenz63 (10, 28, 8.0/3.0)
    v0 = fromListUnboxed (Z :. 3) [1, 0, 0]
takeNth n = ((iterate teo v0) !! n) ! (Z :. 0)
  where
    teo = lorenz63 (10, 28, 8.0/3.0)
    v0 = fromListUnboxed (Z :. 3) [1, 0, 0]