fork download
  1. PLEASE DO ,1 <- #1
  2. PLEASE DO .4 <- #0
  3. PLEASE DO .5 <- #0
  4. PLEASE DO .99 <- #0
  5. DO COME FROM (30)
  6. DO COME FROM (31)
  7. DO WRITE IN ,1
  8. DO .1 <- ,1SUB#1
  9. DO .2 <- .4
  10. DO (1000) NEXT
  11. DO .4 <- .3~#255
  12. DO (10) NEXT
  13. (42) DO .1 <- .1
  14. (20) DO .42 <- "&'&.4~#26'$#1"
  15. PLEASE RESUME "?.42$#1"~#3
  16. (10) DO (20) NEXT
  17. DO FORGET #1
  18. PLEASE COME FROM (42)
  19. PLEASE STASH .1+.2+.3
  20. DO .1 <- .4
  21. DO .2 <- #50
  22. DO (1010) NEXT
  23. DO (100) NEXT
  24. PLEASE STASH .1+.2+.3
  25. DO .1 <- .99
  26. DO .2 <- #52
  27. DO (1010) NEXT
  28. DO (101) NEXT
  29. PLEASE GIVE UP
  30. (201) DO .3 <- '.3~.3'~#1
  31. PLEASE RESUME "?.3$#2"~#3
  32. (101) DO (201) NEXT
  33. DO FORGET #1
  34. (32) PLEASE RETRIEVE .1+.2+.3
  35. (200) DO .3 <- '.3~.3'~#1
  36. PLEASE RESUME "?.3$#2"~#3
  37. (100) DO (200) NEXT
  38. DO FORGET #1
  39. DO COME FROM (32)
  40. PLEASE RETRIEVE .1+.2+.3
  41. DO (102) NEXT
  42. (31) DO .99 <- .4
  43. (202) DO .98 <- '.99~.99'~#1
  44. PLEASE RESUME "?.98$#2"~#3
  45. (102) DO (202) NEXT
  46. DO FORGET #1
  47. DO .3 <- !99~#15'$!99~#240'
  48. DO .3 <- !3~#15'$!3~#240'
  49. DO .2 <- !3~#15'$!3~#240'
  50. DO .1 <- .5
  51. DO (1010) NEXT
  52. DO .5 <- .2
  53. DO ,1SUB#1 <- .3
  54. PLEASE READ OUT ,1
  55. (30) DO .99 <- .4
Success #stdin #stdout 0s 5284KB
stdin
1
2
10
42
11
stdout
1
2
10