diff --git a/extra/str-fry/authors.txt b/extra/str-fry/authors.txt
new file mode 100644
index 0000000000..ce0899f16e
--- /dev/null
+++ b/extra/str-fry/authors.txt
@@ -0,0 +1 @@
+Sam Anklesaria
\ No newline at end of file
diff --git a/extra/str-fry/str-fry.factor b/extra/str-fry/str-fry.factor
new file mode 100644
index 0000000000..aafdaa95d9
--- /dev/null
+++ b/extra/str-fry/str-fry.factor
@@ -0,0 +1,4 @@
+USING: kernel sequences splitting strings.parser ;
+IN: str-fry
+: str-fry ( str -- quot ) "_" split unclip [ [ rot glue ] reduce ] 2curry ;
+SYNTAX: I" parse-string rest str-fry over push-all ;
\ No newline at end of file
diff --git a/extra/str-fry/summary.txt b/extra/str-fry/summary.txt
new file mode 100644
index 0000000000..7755f5ae9a
--- /dev/null
+++ b/extra/str-fry/summary.txt
@@ -0,0 +1 @@
+String Frying
\ No newline at end of file