diff --git a/extra/strings/lib/lib.factor b/extra/strings/lib/lib.factor
index 223fdb2090..6affe067fd 100644
--- a/extra/strings/lib/lib.factor
+++ b/extra/strings/lib/lib.factor
@@ -1,4 +1,4 @@
-USING: math arrays sequences kernel splitting strings ;
+USING: math arrays sequences kernel random splitting strings ;
 IN: strings.lib
 
 : char>digit ( c -- i ) 48 - ;
@@ -12,3 +12,28 @@ IN: strings.lib
 
 : >Upper-dashes ( str -- str )
     "-" split [ >Upper ] map "-" join ;
+
+: lower-alpha-chars ( -- seq )
+    26 [ CHAR: a + ] map ;
+
+: upper-alpha-chars ( -- seq )
+    26 [ CHAR: A + ] map ;
+
+: numeric-chars ( -- seq )
+    10 [ CHAR: 0 + ] map ;
+
+: alpha-chars ( -- seq )
+    lower-alpha-chars upper-alpha-chars append ;
+
+: alphanumeric-chars ( -- seq )
+    alpha-chars numeric-chars append ;
+
+: random-alpha-char ( -- ch )
+    alpha-chars random ;
+
+: random-alphanumeric-char ( -- ch )
+    alphanumeric-chars random ;
+
+: random-alphanumeric-string ( length -- str )
+    [ drop random-alphanumeric-char ] map "" like ;
+