Check out the spec
-
Fibonacci sequence
1:50#p;+x$~ J1:initialize the stack with two ones (:copies the top item)50#p;+x$repeat the block (p;+x) 50 times.ppush the top item to the side stack, non-destructively;duplicate the second item in the stack+add top two itemsxswap top two items
~pop the entire side stack as a stack frame to the main stackJjoin all elements with a space- The top item of the stack is implicitly printed at the end