foo :: Ptr Float -> IO Float
foo p = liftM2 (+) (peekElemOff q 0) (peekElemOff q 1)
  where
    q = p `plusPtr` 4
foo :: Ptr Float -> IO Float
foo p = liftM2 (+) (peekElemOff q 0) (peekElemOff q 1)
  where
    q = p `plusPtr` 4
foo p = liftM2 (+) (peekElemOff q 0) (peekElemOff q 1)
  where
    q = p `plusPtr` 4