diff --git a/from_scratch/test.fs b/from_scratch/test.fs
index 1abff7d..79cb933 100644
--- a/from_scratch/test.fs
+++ b/from_scratch/test.fs
@@ -1 +1,2 @@
-2 3 + . bye
\ No newline at end of file
+1 2 3 ROT +
+. bye
\ No newline at end of file
diff --git a/pe/filesrv/fserve.erl b/pe/filesrv/fserve.erl
new file mode 100644
index 0000000..1fda07d
--- /dev/null
+++ b/pe/filesrv/fserve.erl
@@ -0,0 +1,9 @@
+-module(fserve).
+-export([start/0]).
+-include("./msg.hrl").
+
+start () ->
+    file_serve(#{}, #{}).
+
+file_serve(Names, DataStore) ->
+    throw (not_implemented).
diff --git a/pe/filesrv/msg.hrl b/pe/filesrv/msg.hrl
new file mode 100644
index 0000000..357878a
--- /dev/null
+++ b/pe/filesrv/msg.hrl
@@ -0,0 +1,16 @@
+%% This is the standard set of file server messages.
+
+% upload sends data to be uploaded.
+-record(upload, {client, data}).
+
+% tag marks an ID as having an alternate name.
+-record(tag, {client, id, name}).
+
+% put combines upload and tag.
+-record(put, {client, name, data}).
+
+% retrieve obtains the data referenced by id.
+-record(retrieve, {client, id}).
+
+% fetch obtains the data referenced by an alternative name.
+-record(fetch, {client, name}).