Geal

OSProcess thisOSProcess stdOut 
  nextPutAll: 'Welcome to the simple Smalltalk REPL'; 
  nextPut: Character lf; nextPut: $>; flush.
[ |input|
  [ input := OSProcess readFromStdIn.
    input size > 0 ifTrue: [
      OSProcess thisOSProcess stdOut 
        nextPutAll: ((Compiler evaluate: input) asString; 
        nextPut: Character lf; nextPut: $>; flush 
    ]

SeanTAllen

class := TestCase.

aStream := String new writeStream .
class superclass == nil
	ifTrue: [aStream nextPutAll: 'ProtoObject']
	ifFalse: [aStream nextPutAll: class superclass name].
aStream 
	nextPutAll: class kindOfSubclass;
	store: class name;
	crlf.