line-mode
inits
    ( "stop" )
    swap
    diff #(list-list)
    length
    not
f5
head