USING: assocs help.markup kernel locals make math sequences ;

IN: help.apropos

:: (apropos) ( search completions category -- element )
completions [
[
{ $heading search } , [
max-completions short head
keys \ $completions prefix ,
] [
length max-completions >
[ { $link ~more-completions~ } , ] when
] bi
] unless-empty
] { } make ;