Add function 'label'.

'label :: String -> Get a -> Get a' adds the given string to
the error message string if the given decoder fails.
Fixes #16.