fork download
  1. set a {apple bear cat desk early fust get history ice joy kindness \
  2. log map number open pen quick read start time usual victory \
  3. win xmas yield zoom}
  4. set s [gets stdin]
  5. puts $s
  6. for {set j 1} {$j < 100} {incr j} {
  7. set i 0
  8. for {} {[string range $s [expr [string length $s] - 1] [expr [string length $s] - 1]] \
  9. != [string range [lindex $a $i] 0 0]} {incr i} {}
  10. puts [lindex $a $i]
  11. set s [lindex $a $i]
  12. }
Success #stdin #stdout 0.05s 5272KB
stdin
pen
stdout
pen
number
read
desk
kindness
start
time
early
yield
desk
kindness
start
time
early
yield
desk
kindness
start
time
early
yield
desk
kindness
start
time
early
yield
desk
kindness
start
time
early
yield
desk
kindness
start
time
early
yield
desk
kindness
start
time
early
yield
desk
kindness
start
time
early
yield
desk
kindness
start
time
early
yield
desk
kindness
start
time
early
yield
desk
kindness
start
time
early
yield
desk
kindness
start
time
early
yield
desk
kindness
start
time
early
yield
desk
kindness
start
time
early
yield
desk
kindness
start
time
early
yield
desk
kindness
start
time
early
yield
desk