Still shortening shorten (latest based on http://www.reddit.com/r/haskellquestions/comments/2e6mn6/how_to_turn_imperative_looking_string_filtering/)