schell@ws:~$ swipl
Welcome to SWI-Prolog (threaded, 64 bits, version 7.6.0-rc1)
SWI-Prolog comes with ABSOLUTELY NO WARRANTY. This is free software.
Please run ?- license. for legal details.

For online help and background, visit http://www.swi-prolog.org
For built-in help, use ?- help(Topic). or ?- apropos(Word).

?- consult('*/ny_pro_sports.pro').
true.

?- hockey.
New York Rangers
New York Islanders
Buffalo Sabres
true.

?- basketball.
New York Knicks
Brooklyn Nets
true.

?- baseball.
New York Yankees
New York Mets
true.

?- football.
New York Giants
New York Jets
true.

?- older.
New York Rangers
New York Yankees
New York Giants
New York Knicks
true.

?- younger.
New York Islanders
New York Mets
New York Jets
Brooklyn Nets
Buffalo Sabres
true.

?- olderleague.
NHL
MLB
true.

?- youngerleague.
NBA
NFL
true.

?- bigcap.
New York Yankees
Yankee Stadium
47422

New York Mets
Citi Field
41800

New York Giants
Met Life Stadium
82500

New York Jets
Met Life Stadium
82500

true.

?- lowcap.
New York Rangers
Madison Square Garden
18006

New York Islanders
Barclays Center
15795

New York Knicks
Madison Square Garden
19812

Brooklyn Nets
Barclays Center
17732

Buffalo Sabres
Key Bank Center
19070

true.

?- seating(T,L,C).
T = 'New York Rangers',
L = 'Madison Square Garden',
C = 18006 ;
T = 'New York Islanders',
L = 'Barclays Center',
C = 15795 ;
T = 'New York Yankees',
L = 'Yankee Stadium',
C = 47422 ;
T = 'New York Mets',
L = 'Citi Field',
C = 41800 ;
T = 'New York Giants',
L = 'Met Life Stadium',
C = 82500 ;
T = 'New York Jets',
L = 'Met Life Stadium',
C = 82500 ;
T = 'New York Knicks',
L = 'Madison Square Garden',
C = 19812 ;
T = 'Brooklyn Nets',
L = 'Barclays Center',
C = 17732 ;
T = 'Buffalo Sabres',
L = 'Key Bank Center',
C = 19070.

?- halt.
schell@ws:~$