--- head.p6 ---------------------------------------------
my$h=open@ARGS[0];print(($h.readline())[0..9])
--- tail.p6 ---------------------------------------------
my$h=open@ARGS[0];my@l=$h.readline();
my$i;for(@l){++$i}
$i=$i-10;$i=0 if$i<0;
print@l[$i..Inf]
--- rev.p6  ---------------------------------------------
my$h=open@ARGS[0];my@l=$h.readline();
my$x;for(@l){$x=$_~$x}
print$x;
--- mid.p6  ---------------------------------------------
# Note: works for Pugs 6.0.10 but will require removal
# of -0.1 below for Pugs 6.0.11.
my$h=open@ARGS[0];my@l=$h.readline();
my$i;for(@l){++$i}
print@l[int(($i-1)/2-0.1)..int($i/2-0.1)]
--- wc.p6   ---------------------------------------------
my$h=open@ARGS[0];my@l=$h.readline();
my$i;for(@l){++$i}
say join"",(split"",int(7e10+$i))[1..Inf];