: glitch-text ( str p -- st2 )
    '[ _ [ 7 random 2^ bitxor ] whenp ] map
    control-pictures ;