fork download 
  1. 			   DO .1 <- #1
  2. 			   DO .2 <- #1
  3. 		PLEASE DO (2000) NEXT
  4. 			   DO GIVE UP
  5. (2000)  PLEASE DO STASH .1
  6. 			   DO .1 <- "'".1~.1"~#1'~'".2~.2"~#1'"
  7. 			   DO (1020) NEXT
  8.     	PLEASE DO (2001) NEXT
  9.     		   DO READ OUT #1
  10.     		   DO READ OUT .1
  11.     		   DO RESUME #1
  12. (2001)	PLEASE DO (2002) NEXT
  13. 			   DO FORGET #1
  14. 			   DO READ OUT #2
  15. 			   DO READ OUT .1
  16. 			   DO RESUME #1
  17. (2002)		   DO RESUME .1
Success #stdin #stdout 0s 5332KB
comments (?)
stdin 
Standard input is empty
stdout 
 
I
  
II
https://ideone.com/t1dd6F
language:
Intercal (ick 0.3)
created:
6 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!