ghc-exactprint-0.2: tests/examples/T3132.hs

module T3132 where

import Data.Array.Unboxed

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