>>802
add_prefix :: (Show a) => a -> String
add_prefix = (++) "prefix_" . show