{-# LANGUAGE MagicHash #-}
#include "fusion-phases.h"

module Data.Array.Parallel.Unlifted (
  (:*:)(..), Elt, Array, Sel2, Segd,

  length,
  empty, replicate, repeat, (+:+), interleave,
  (!:), extract, drop, permute, mbpermute, bpermute, bpermuteDft, update,
  pack, combine, combine2,
  enumFromTo, enumFromThenTo, enumFromStepLen, enumFromStepLenEach,
  indexed,
  zip, zip3, unzip, unzip3, fsts, snds,
  map, zipWith, zipWith3,
  filter,

  fold, fold1, and, sum, scan,

  replicate_s, replicate_rs, append_s,

  fold_s, fold1_s, fold_r, sum_s, indices_s, sum_r,
  lengthSegd, lengthsSegd, indicesSegd, elementsSegd, lengthsToSegd,
  mkSegd, plusSegd,

  mkSel2, tagsSel2, indicesSel2, elementsSel2_0, elementsSel2_1, repSel2,
  tagsToSel2,
  mkSelRep2, indicesSelRep2, elementsSelRep2_0, elementsSelRep2_1,
  packByTag, pick, count, count_s,

  randoms, randomRs, IOElt, hGet, hPut,

  toList, fromList,
) where

import Data.Array.Parallel.Base   ( (:*:)(..), fstS, sndS )
import Prelude                    (Num, Int, Bool, Double)
import System.IO                  (IO, Handle)
import Data.Word                  (Word8)
import qualified System.Random
import qualified Prelude