ghc-exactprint-1.14.0.0: tests/examples/pre-ghc910/T3132.hs

module T3132 where

import Data.Array.Unboxed

step :: UArray Int Double -> [Double]
step y = [y!1 + y!0]