#!/usr/bin/perl
$s = join '', <STDIN>;
$s =~ s/^step\s+\#\d+[\n\r\f]\d+\s+in\s+\.\.\/(.*?)[\n\r\f]//gmsx;
$s =~ s/^step\s+\#\d+[\n\r\f]\d+\s+in\s+([A-Za-z0-9\-_]+)\.(c|cpp)[\n\r\f]//gmsx;
print $s;
