showCompose :: Show a => (b -> a) -> b -> String
showCompose fba = show . fba