Conversores toma enesima (no enema esima) [Archivo adjunto 1]

Para los que quieren algo de Squeak en Cuis, este ejercicio que les di
alguna vez a los alumnos

| file record fields alumnos user mail |    alumnos := Dictionary new.
file := CrLfFileStream oldFileNamed: 'Workbook2.txt'.    file converter:
MacRomanTextConverter new.    record := file nextLine.        [record
isEmptyOrNil ]        whileFalse: [            fields := record findTokens:
Character tab.                    user := fields at:1  .            mail :=
fields last.            mail := mail findTokens: '@'.        mail := mail
at:1  .        alumnos at: user  put: mail.            record := file
nextLine.].    ^ alumnos inspect

Como verás Germán, es de hace un año......