unwrap :: (Entity a, Entity b) -> (a, b)
unwrap (e, f) = (entityVal e, entityVal f)
unwrap :: (Entity a, Entity b) -> (a, b)
unwrap (e, f) = (entityVal e, entityVal f)
unwrap (e, f) = (entityVal e, entityVal f)