+}
+
+extern char *stralloc(int size) {
+ strinitialize();
+ if ( heap.current + size >= heap.end ) {
+ heap.current = heap.base;
+ }
+ char *start = heap.current;
+ heap.current += size;
+ return start;
+}
+
+char *strjoin(const char *first,...) {
+ va_list ap;
+ strinitialize();