vimの%にまかせて($2$年前の)tailsさんによるperl $60$byteを抜いて暫定最短。

implementation

vim (vim -u NONE -i NONE -X -N -n -e -s -S $FILENAME /dev/stdin -c qa!) $54$byte:

norm Dppk0cwnorm^j
exe getline(1)."lhh%"
pu=col('.')
p