Formated by GeSHi
readln(String) :-
        get_char(C),
        (
                C == '\n'
        ->
                String=[]
        ;
                readln(Cont),
                String = [C | Cont]
        ).
Parsed in 0.00423598 seconds