diff --git a/README.md b/README.md
index d9e3864..85df5b5 100644
--- a/README.md
+++ b/README.md
@@ -271,7 +271,7 @@ Marked features are supported, unmarked features are planned
 		* [x] `⎕u` (constant) the uppercase alphabet
 		* [x] `⎕l` (constant) the lowercase alphabet
 		* [x] `⎕d` (constant) the digits
-		* [ ] `⎕ts` current Unix timestamp
+		* [x] `⎕ts` current Unix timestamp
 		* [x] `⎕io` (constant) `1`
 		* [x] `⎕ct` (constant) `1⏨¯14`
 		* [x] `⎕seed` (set only) seed the random number generator
diff --git a/docs/interpreters/latest/tinyapl-js.wasm b/docs/interpreters/latest/tinyapl-js.wasm
index 41febc8..faca08f 100755
Binary files a/docs/interpreters/latest/tinyapl-js.wasm and b/docs/interpreters/latest/tinyapl-js.wasm differ
diff --git a/src/TinyAPL/CoreQuads.hs b/src/TinyAPL/CoreQuads.hs
index e190e22..7aa162d 100644
--- a/src/TinyAPL/CoreQuads.hs
+++ b/src/TinyAPL/CoreQuads.hs
@@ -20,9 +20,7 @@ seed = Nilad Nothing (Just $ \x -> do
   let e = DomainError "Seed must be a scalar integer"
   s <- liftEither (asScalar e x) >>= liftEither . asNumber e >>= liftEither . asInt e
   setSeed s) (G.quad : "seed")
-ts = Nilad (Just $ do
-  scalar . Number . realToFrac <$> liftIO getPOSIXTime
-  ) Nothing (G.quad : "ts")
+ts = Nilad (Just $ scalar . Number . realToFrac <$> liftIO getPOSIXTime) Nothing (G.quad : "ts")
 
 exists = Function (Just $ \x -> do
   let var = show x