----------------------------------------
|context> => |context: swear words>

supported-ops |swear words> => |op: >
 |swear words> => |asshole> + |bitch> + |cunt> + |fuck> + |motherfucker> + |shit> + |son of a bitch> + |sweat Jesus> + |fuck you>

supported-ops |context: swear words> => |op: more-info>
more-info |context: swear words> => |url: http://en.wiktionary.org/wiki/Category:English_swear_words>

is-swear-word |word: asshole> => |yes>
is-swear-word |word: bitch> => |yes>
is-swear-word |word: cunt> => |yes>
is-swear-word |word: fuck> => |yes>
is-swear-word |word: motherfucker> => |yes>
is-swear-word |word: shit> => |yes>
is-swear-word |word: son-of-a-bitch> => |yes>
is-swear-word |word: sweat-Jesus> => 0.7 |yes>
is-swear-word |word: fuck-you> => |yes>

supported-ops |X> => |op: swear>
swear |X> #=> pick-elt "" |swear words>
----------------------------------------