55 [ "hello" ] replicate concat ;
{ f } [ message >quoted "=\r\n" swap subseq? ] unit-test
-{ 1 } [ message >quoted string-lines length ] unit-test
+{ 1 } [ message >quoted lines length ] unit-test
{ t } [ message >quoted-lines "=\r\n" swap subseq? ] unit-test
-{ 4 } [ message >quoted-lines string-lines length ] unit-test
-{ "===o" } [ message >quoted-lines string-lines [ last ] "" map-as ] unit-test
+{ 4 } [ message >quoted-lines lines length ] unit-test
+{ "===o" } [ message >quoted-lines lines [ last ] "" map-as ] unit-test