I'm a newbie so I'm having problems doing this:P

Currently I have tried this:

```
xs1 :: RandomGen g => Int -> g -> [[Char]]
xs1 n = sequence $ replicate n $ randomRs ('!', '~' ::Char)

```

but I can't give this string to my function:

```
fun1 :: (Eq a, Num a) => [a] -> [Char] -> [Char]
fun1 a xs1=[if (a!!n==1) then (xs1!!n) else b | n <- [0, 1,2,3,4]]

```

any help would be greatly appreciated