13aa99676SStefan Eßer#! /usr/bin/dc 23aa99676SStefan Eßer[lb1+dsb*plb50>x]sx 33aa99676SStefan Eßer0sb1 43aa99676SStefan Eßerlxx 5