import Data.Traversable
main = do
let a = traverse (\x -> if x > 4 then Just x else Nothing) [1..]
aW1wb3J0IERhdGEuVHJhdmVyc2FibGUKCm1haW4gPSBkbwoJbGV0IGEgPSB0cmF2ZXJzZSAoXHggLT4gaWYgeCA+IDQgdGhlbiBKdXN0IHggZWxzZSBOb3RoaW5nKSBbMS4uXQoJcHJpbnQgYQoJcHJpbnQgImRvbmUi