showExpr (PrimitiveFunction name f) =
  "#<primitive-fn:" ++ name ++ ">"
showExpr (PrimitiveFunction name f) =
  "#<primitive-fn:" ++ name ++ ">"
showExpr (PrimitiveFunction name f) =
  "#<primitive-fn:" ++ name ++ ">"