tibro] [jvbass [latibro jvbass]]" ((1%2) `rotL` slow 6 "[1 6 8 7 3]")

samples :: Applicative f => f String -> f Int -> f String
samples p p' = pick <$> p <*> p'

samples' :: Applicativ
samples :: Applicative f => f String -> f Int -> f String
samples p p' = pick <$> p <*> p'
samples p p' = pick <$> p <*> p'