#!/usr/bin/env 3bc
MODE NILL 0d2
NILL NILL :do
STRC NILL '\n' 
STRC NILL 'R'
STRC NILL 'E'
STRC NILL 'P'
STRC NILL 'E'
STRC NILL 'A'
STRC NILL 'T'
STRC NILL '?'
STRC NILL ' '
STRC NILL '['
STRC NILL 'y'
STRC NILL '/'
STRC NILL 'n'
STRC NILL ']'

# while key = yes
MODE NILL 0d4
STRB :key NILL
MODE NILL 0d9 
FGTO NILL :do