gistfile1.lisp

let getline return = 
    getchar -> c:
    if equal c "\n" ?
        return ""
    else
        getline -> s:
        return (+ c s);

let putline string next =
    split string
        (-> c s:
            putchar c,
            putline s,
            next)
        (-> :
            next);

let echo =
    getline -> str:
    putline str,
    echo;

echo