010 REM 
020 REM See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
030 REM 

040 REM 
050 REM Run as: basic ch-2.bas
060 REM 

100 PRINT "2 1 5"
110 PRINT "5 2 13"
120 PRINT "8 3 21"
130 PRINT "17 18 5"
140 PRINT "11 4 29"