/*
    from: http://www.amzi.com/AdventureInProlog/a14cntrl.php

    example of using the repeat/0 predicate for looping
    (although recursion is more "natural" for repetition in Prolog... 8-) )

    last modified: 03-24-11
*/

command_loop :- repeat,
                write('Enter command (end to exit): '),
                read(Cmd),
                writeln(Cmd),
                Cmd = end.