Define a IPython magic which replaces the content of the next cell

Question

The %load line-magic command loads the content of a given file into the current cell, for instance, executing:

[cell 1]    %load