! Copyright (C) 2009 Anthony Simpson.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel namespaces sequences command-line io.files io.encodings.utf8 ;
IN: wnlc


: convert ( seq -- seq ) [ CHAR: \r = not ] filter ;
: read-convert ( -- seq )
    (command-line) first utf8 file-contents convert ;
: write-file ( seq -- )
    (command-line) first utf8 set-file-contents ;
: main ( -- ) read-convert write-file ;

MAIN: main