$%INPUNUMREPEAKENUMAIDDXXAA Q@t@@p@Aaq Aa AB *** WONDROUS NUMBERS ***A RECREATIONAL DIVERSION""CREATIVE COMPUTING 4/85,P.99D.D.DAVIDS [70277,2173]%%*** THE MOST WONDROUS NUMBER IHAVE FOUND IS WHICH TOOK 261 ITERATIONS :;@,6-(6-@p:A $$(} ӠҠҠ A^(,(!Beginning with any whole number -O(If it is odd, multiply it by 3^( and add 1.&&(If it is even, divide it by 2.(t+(#If applying this process repeatedlyP( brings you to 1, then the numbert(you started with is 'WONDROUS.'2_(-from:(8("Godel,Escher,Bach:An Eternal Braid_(" <&(by Douglas Hofstadter (#(&(Fg @uAR@(ENTER NUMBER TO BE TESTEDDVAR@` Bg(Gy(CONTINUE AUTOMATICALLY?*@J@@K:W)@c"@o6-@uy @H @K-A A`-6-%@P 6-6-Z ( @A _? 6.=:,-@B:,;67<,.>:@:7<,,%A(,? dD-( ITERATIONS ARE NEEDED TO MAKE >( WONDROUS.A(D(i 6-!6-6-n x$$'@"P:'@,A@} F:B2y,"@A`'6-%@'6-$@%@6-%@6-'@ @c@w?(%ϠҬŠԠӠҠc( Ƞˠ Ӯ##(ERROR CONDITION=F:A, F:A,AAR A F:B2y,"@A4F:B2y,"@$6-@p'(*(4 @p Au4AR@((% @4CONTINUATIONs(N(CTortoise: 'Let me show you a property which is very easy to define,s( and yet for which no terminating(test is known:'$D:WONDROU2.BAStttttttttttt