RosettaCodeData/Task/Binary-strings/PicoLisp/binary-strings-3.l

6 lines
159 B
Plaintext

: (in '(dd "skip=32" "bs=1" "count=16" "if=rawfile")
(make
(while (rd 1)
(link @) ) ) )
-> (32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47)