-- TODO: figure out how to abstract over type classes as well as types
renderShow :: Show a => R a
renderShow x = let str = show x in take (length str - 2 ) $ drop 1 str
renderShow :: Show a => R a
renderShow x = let str = show x in take (length str - 2 ) $ drop 1 str
renderShow x = let str = show x in take (length str - 2 ) $ drop 1 str