module Text.Format where

class Show a => Format a where
    format :: a -> String
    format = show