fork download
copy 
  1. : digit ( u-c) dup 9 > 7 and + '0' + ;
  2. 15 digit emit
  3.  
Success #stdin #stdout 0.01s 5316KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
F
https://ideone.com/uvf3d9
language:
Forth (gforth 0.7.3)
created:
4 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!