Index: src/builtins/any-str.pir
===================================================================
--- src/builtins/any-str.pir	(revision 31334)
+++ src/builtins/any-str.pir	(working copy)
@@ -611,6 +611,18 @@
     .return(retv)
 .end
 
+=item ord()
+
+=cut
+
+.namespace []
+.sub 'ord' :multi()
+    .param pmc str
+    $S0 = str
+    $I0 = ord $S0
+    .return ($I0)
+.end
+
 # Local Variables:
 #   mode: pir
 #   fill-column: 100
Index: src/builtins/any-num.pir
===================================================================
--- src/builtins/any-num.pir	(revision 31334)
+++ src/builtins/any-num.pir	(working copy)
@@ -189,9 +189,19 @@
     .return (result)
 .end
 
+=item chr()
 
+=cut
 
+.namespace []
+.sub 'chr' :multi()
+    .param pmc grid
+    $I0 = grid
+    $S0 = chr $I0
+    .return ($S0)
+.end
 
+
 =back
 
 =cut