2-pak is a programming language created in 1975.
| #3799on PLDB | 49Years Old |
coroutine FRUIT_GEN()
begin
strin g FRUIT ;
FRUIT :- 'CHERRY1
;
detach ;
whil e tru e do
case FRUIT of
'CHERRY1
: FRUIT := 'LEMON1
;
'LEMON': FRUIT := 'ORANGE?
;
'ORANGE1
: FRUIT :- 'APPLE' ;
'APPLE': FRUIT :- 'CHERRY' ;
end ;
detach ;
end ;
end ;