RosettaCodeData/Task/Strip-comments-from-a-string/Factor/strip-comments-from-a-string.factor

USE: sequences.extras
: strip-comments ( str -- str' )
    [ "#;" member? not ] take-while "" like ;