8 lines
200 B
Text
8 lines
200 B
Text
(de rdConf (File)
|
|
(in File
|
|
(while (read)
|
|
(set @ (or (pack (clip (line))) T)) ) ) )
|
|
|
|
(rdConf "conf.txt")
|
|
(println FULLNAME FAVOURITEFRUIT NEEDSPEELING SEEDSREMOVED OTHERFAMILY)
|
|
(bye)
|