perl -e 'print abs,"\n" for -9..-5, 12..18'