road(durango,redville).
road(redville,durango).
road(redville,hardwick).
road(hardwick,redville).
road(hardwick,newton).
road(newton,hardwick).
road(newton,burr).
road(burr,newton).
road(newton,hallsburg).
road(hallsburg,newton).
road(newton,burlington).
road(burlington,newton).
road(hallsburg,burlington).
road(burlington,hallsburg).
cm9hZChkdXJhbmdvLHJlZHZpbGxlKS4Kcm9hZChyZWR2aWxsZSxkdXJhbmdvKS4Kcm9hZChyZWR2aWxsZSxoYXJkd2ljaykuCnJvYWQoaGFyZHdpY2sscmVkdmlsbGUpLgpyb2FkKGhhcmR3aWNrLG5ld3RvbikuCnJvYWQobmV3dG9uLGhhcmR3aWNrKS4Kcm9hZChuZXd0b24sYnVycikuCnJvYWQoYnVycixuZXd0b24pLgpyb2FkKG5ld3RvbixoYWxsc2J1cmcpLgpyb2FkKGhhbGxzYnVyZyxuZXd0b24pLgpyb2FkKG5ld3RvbixidXJsaW5ndG9uKS4Kcm9hZChidXJsaW5ndG9uLG5ld3RvbikuCnJvYWQoaGFsbHNidXJnLGJ1cmxpbmd0b24pLgpyb2FkKGJ1cmxpbmd0b24saGFsbHNidXJnKS4=
cm9hZChidXJyLCBGaXJzdCksIHJvYWQoRmlyc3QsIFNlY29uZCksIFNlY29uZCBcPSBidXJyLCBmb3JtYXQoJ353IGNhbiBiZSB2aXNpdGVkIGluIHR3byBob3BzIGZyb20gYnVyci5cbicsIFNlY29uZCksIGZhaWw=
road(burr, First), road(First, Second), Second \= burr, format('~w can be visited in two hops from burr.\n', Second), fail