/* My first program.... 
 * this even seems to work... 
 */
{
    A=hd X;
    B=hd tl X;
    print Initial;
    print A;
    print B;
    while B do {
	print InLoop;
	print A;
	print B;
        B=tl B;
        A=[].A
    };
    print Final;
    print A;
    print B;
    X=A;
}