add layout and class accessor and test

lib/soml/parfait/layout.soml

@@ -0,0 +1,7 @@
+class Layout < Object
+
+  Class object_class()
+    get_internal(1)
+  end
+
+end

lib/soml/parfait/object.soml

@@ -1,7 +1,12 @@
 class Object
 
   Layout get_layout()
-    return get_internal(1)
+    return get_internal(0)
+  end
+
+  Class get_class()
+    Layout l = get_layout()
+    return l.object_class()
   end
 
 end