module System where

import NHC.PackedString(PackedString,unpackPS)
import NHC.Internal (IO(..))

cGetArgs primitive 0 :: [PackedString]

primGetArgs =
  IO ( \ world ->
	let args = cGetArgs
	in args `seq` Right (map unpackPS args))