chash :: Entry -> String
chash = (++ "ef") . take 4 . str5 . (!! 1) . unSelector
chash :: Entry -> String
chash = (++ "ef") . take 4 . str5 . (!! 1) . unSelector
chash = (++ "ef") . take 4 . str5 . (!! 1) . unSelector