sub momentum {
    my $self = shift;
    $self->{momentum} //= $self->{mass} * $self->{velocity};
}