Using random to pick a program from a given list of Strings

I'm trying to pick a programm at random from a given list and retrieve a random value (s) so it does complain when i try to run it

gp = do
 randomRIO (0, length programms - 1) >>= \s -> putStrLn(show(programms !!s  ++s))