--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/samples/file.tp	Thu Jul 24 23:53:54 2014 -0700
@@ -0,0 +1,18 @@
+#{
+	import: [
+		stdin
+		stdout
+	] from: file
+	main <- {
+		stdout write: "Hello from the file module!\nWhat's your name?\n"
+		name <- (stdin nextLine) trim
+		stdout write: "Nice to meet you " . name . ". Here's my source code:\n\n"
+		f <- file open: "samples/file.tp"
+		foreach: (f lines) :num text {
+			print: (string: num+1) . ": " . text
+		}
+		print: "\n"
+		f close
+		0
+	}
+}