showVal :: WoofVal -> String
showVal (WoofObjectRef num) = "Obj:" ++ (show num)
showVal :: WoofVal -> String
showVal (WoofObjectRef num) = "Obj:" ++ (show num)
showVal (WoofObjectRef num) = "Obj:" ++ (show num)