Replace filter and head with find and fromJust
Shorten "do putStrLn . show" to "print"
Remove debugging print statement