require libcc.fs \c #include \c #include c-function strlen strlen a -- n c-function labs labs n -- n \c #include \c #include c-function dlseek lseek n d n -- d cr s\" fooo\0" 2dup dump drop .s strlen cr .s drop cr -5 labs .s drop cr