1*3aa99676SStefan Eßer#! /usr/bin/dc 2*3aa99676SStefan Eßer0si[lid:rli1+sili100>x]dsxxli1-si[li;rpRli1-sili0!>x]dsxxli1+si[li;rpRli1+sili100>x]dsxx 3*3aa99676SStefan Eßer0 0:a 1 1:a 2 2:a 0;a 1;a 2;a |pR 4